CAM
|
Functions/Subroutines | |
subroutine, public | rrtmg_sw (lchnk, ncol, nlay, icld, play, plev, tlay, tlev, tsfc, h2ovmr, o3vmr, co2vmr, ch4vmr, o2vmr, n2ovmr, asdir, asdif, aldir, aldif, coszen, adjes, dyofyr, solvar, inflgsw, iceflgsw, liqflgsw, cldfmcl, taucmcl, ssacmcl, asmcmcl, fsfcmcl, ciwpmcl, clwpmcl, reicmcl, relqmcl, tauaer, ssaaer, asmaer, swuflx, swdflx, swhr, swuflxc, swdflxc, swhrc, dirdnuv, dirdnir, difdnuv, difdnir, ninflx, ninflxc, swuflxs, swdflxs) |
real(kind=r8) function | earth_sun (idn) |
subroutine | inatm_sw (iplon, nlay, icld, iaer, play, plev, tlay, tlev, tsfc, h2ovmr, o3vmr, co2vmr, ch4vmr, o2vmr, n2ovmr, adjes, dyofyr, solvar, inflgsw, iceflgsw, liqflgsw, cldfmcl, taucmcl, ssacmcl, asmcmcl, fsfcmcl, ciwpmcl, clwpmcl, reicmcl, relqmcl, tauaer, ssaaer, asmaer, pavel, pz, pdp, tavel, tz, tbound, coldry, wkl, adjflux, inflag, iceflag, liqflag, cldfmc, taucmc, ssacmc, asmcmc, fsfcmc, ciwpmc, clwpmc, reicmc, dgesmc, relqmc, taua, ssaa, asma) |
subroutine, public | rrtmg_sw (lchnk, ncol, nlay, icld, dotau, play, plev, tlay, tlev, tsfc, h2ovmr, o3vmr, co2vmr, ch4vmr, o2vmr, n2ovmr, asdir, asdif, aldir, aldif, coszen, adjes, dyofyr, scon, inflgsw, iceflgsw, liqflgsw, cldfr, taucld, ssacld, asmcld, cicewp, cliqwp, reice, reliq, tauaer, ssaaer, asmaer, swuflx, swdflx, swhr, swuflxc, swdflxc, swhrc, dirdnuv, dirdnir, difdnuv, difdnir, ninflx, ninflxc) |
subroutine | inatm_sw (iplon, nlay, icld, iaer, play, plev, tlay, tlev, tsfc, h2ovmr, o3vmr, co2vmr, ch4vmr, o2vmr, n2ovmr, adjes, dyofyr, scon, inflgsw, iceflgsw, liqflgsw, cldfr, taucld, ssacld, asmcld, cicewp, cliqwp, reice, reliq, tauaer, ssaaer, asmaer, nlayers, pavel, pz, pdp, tavel, tz, tbound, coldry, wkl, adjflux, solvar, inflag, iceflag, liqflag, cldfrac, tauc, ssac, asmc, ciwp, clwp, rei, dge, rel, taua, ssaa, asma) |
real(kind=r8) function rrtmg_sw_rad::earth_sun | ( | integer, intent(in) | idn | ) |
subroutine rrtmg_sw_rad::inatm_sw | ( | integer, intent(in) | iplon, |
integer, intent(in) | nlay, | ||
integer, intent(in) | icld, | ||
integer, intent(in) | iaer, | ||
real(kind=r8), dimension(:,:), intent(in) | play, | ||
real(kind=r8), dimension(:,:), intent(in) | plev, | ||
real(kind=r8), dimension(:,:), intent(in) | tlay, | ||
real(kind=r8), dimension(:,:), intent(in) | tlev, | ||
real(kind=r8), dimension(:), intent(in) | tsfc, | ||
real(kind=r8), dimension(:,:), intent(in) | h2ovmr, | ||
real(kind=r8), dimension(:,:), intent(in) | o3vmr, | ||
real(kind=r8), dimension(:,:), intent(in) | co2vmr, | ||
real(kind=r8), dimension(:,:), intent(in) | ch4vmr, | ||
real(kind=r8), dimension(:,:), intent(in) | o2vmr, | ||
real(kind=r8), dimension(:,:), intent(in) | n2ovmr, | ||
real(kind=r8), intent(in) | adjes, | ||
integer, intent(in) | dyofyr, | ||
real(kind=r8), intent(in) | scon, | ||
integer, intent(in) | inflgsw, | ||
integer, intent(in) | iceflgsw, | ||
integer, intent(in) | liqflgsw, | ||
real(kind=r8), dimension(:,:), intent(in) | cldfr, | ||
real(kind=r8), dimension(:,:,:), intent(in) | taucld, | ||
real(kind=r8), dimension(:,:,:), intent(in) | ssacld, | ||
real(kind=r8), dimension(:,:,:), intent(in) | asmcld, | ||
real(kind=r8), dimension(:,:), intent(in) | cicewp, | ||
real(kind=r8), dimension(:,:), intent(in) | cliqwp, | ||
real(kind=r8), dimension(:,:), intent(in) | reice, | ||
real(kind=r8), dimension(:,:), intent(in) | reliq, | ||
real(kind=r8), dimension(:,:,:), intent(in) | tauaer, | ||
real(kind=r8), dimension(:,:,:), intent(in) | ssaaer, | ||
real(kind=r8), dimension(:,:,:), intent(in) | asmaer, | ||
integer, intent(out) | nlayers, | ||
real(kind=r8), dimension(:), intent(out) | pavel, | ||
real(kind=r8), dimension(0:), intent(out) | pz, | ||
real(kind=r8), dimension(:), intent(out) | pdp, | ||
real(kind=r8), dimension(:), intent(out) | tavel, | ||
real(kind=r8), dimension(0:), intent(out) | tz, | ||
real(kind=r8), intent(out) | tbound, | ||
real(kind=r8), dimension(:), intent(out) | coldry, | ||
real(kind=r8), dimension(:,:), intent(out) | wkl, | ||
real(kind=r8), dimension(:), intent(out) | adjflux, | ||
real(kind=r8), dimension(:), intent(out) | solvar, | ||
integer, intent(out) | inflag, | ||
integer, intent(out) | iceflag, | ||
integer, intent(out) | liqflag, | ||
real(kind=r8), dimension(:), intent(out) | cldfrac, | ||
real(kind=r8), dimension(:,:), intent(out) | tauc, | ||
real(kind=r8), dimension(:,:), intent(out) | ssac, | ||
real(kind=r8), dimension(:,:), intent(out) | asmc, | ||
real(kind=r8), dimension(:), intent(out) | ciwp, | ||
real(kind=r8), dimension(:), intent(out) | clwp, | ||
real(kind=r8), dimension(:), intent(out) | rei, | ||
real(kind=r8), dimension(:), intent(out) | dge, | ||
real(kind=r8), dimension(:), intent(out) | rel, | ||
real(kind=r8), dimension(:,:), intent(out) | taua, | ||
real(kind=r8), dimension(:,:), intent(out) | ssaa, | ||
real(kind=r8), dimension(:,:), intent(out) | asma | ||
) |
subroutine rrtmg_sw_rad::inatm_sw | ( | integer, intent(in) | iplon, |
integer, intent(in) | nlay, | ||
integer, intent(in) | icld, | ||
integer, intent(in) | iaer, | ||
real(kind=r8), dimension(:,:), intent(in) | play, | ||
real(kind=r8), dimension(:,:), intent(in) | plev, | ||
real(kind=r8), dimension(:,:), intent(in) | tlay, | ||
real(kind=r8), dimension(:,:), intent(in) | tlev, | ||
real(kind=r8), dimension(:), intent(in) | tsfc, | ||
real(kind=r8), dimension(:,:), intent(in) | h2ovmr, | ||
real(kind=r8), dimension(:,:), intent(in) | o3vmr, | ||
real(kind=r8), dimension(:,:), intent(in) | co2vmr, | ||
real(kind=r8), dimension(:,:), intent(in) | ch4vmr, | ||
real(kind=r8), dimension(:,:), intent(in) | o2vmr, | ||
real(kind=r8), dimension(:,:), intent(in) | n2ovmr, | ||
real(kind=r8), intent(in) | adjes, | ||
integer, intent(in) | dyofyr, | ||
real(kind=r8), dimension(jpb1:jpb2), intent(in) | solvar, | ||
integer, intent(in) | inflgsw, | ||
integer, intent(in) | iceflgsw, | ||
integer, intent(in) | liqflgsw, | ||
real(kind=r8), dimension(:,:,:), intent(in) | cldfmcl, | ||
real(kind=r8), dimension(:,:,:), intent(in) | taucmcl, | ||
real(kind=r8), dimension(:,:,:), intent(in) | ssacmcl, | ||
real(kind=r8), dimension(:,:,:), intent(in) | asmcmcl, | ||
real(kind=r8), dimension(:,:,:), intent(in) | fsfcmcl, | ||
real(kind=r8), dimension(:,:,:), intent(in) | ciwpmcl, | ||
real(kind=r8), dimension(:,:,:), intent(in) | clwpmcl, | ||
real(kind=r8), dimension(:,:), intent(in) | reicmcl, | ||
real(kind=r8), dimension(:,:), intent(in) | relqmcl, | ||
real(kind=r8), dimension(:,:,:), intent(in) | tauaer, | ||
real(kind=r8), dimension(:,:,:), intent(in) | ssaaer, | ||
real(kind=r8), dimension(:,:,:), intent(in) | asmaer, | ||
real(kind=r8), dimension(:), intent(out) | pavel, | ||
real(kind=r8), dimension(0:), intent(out) | pz, | ||
real(kind=r8), dimension(:), intent(out) | pdp, | ||
real(kind=r8), dimension(:), intent(out) | tavel, | ||
real(kind=r8), dimension(0:), intent(out) | tz, | ||
real(kind=r8), intent(out) | tbound, | ||
real(kind=r8), dimension(:), intent(out) | coldry, | ||
real(kind=r8), dimension(:,:), intent(out) | wkl, | ||
real(kind=r8), dimension(:), intent(out) | adjflux, | ||
integer, intent(out) | inflag, | ||
integer, intent(out) | iceflag, | ||
integer, intent(out) | liqflag, | ||
real(kind=r8), dimension(:,:), intent(out) | cldfmc, | ||
real(kind=r8), dimension(:,:), intent(out) | taucmc, | ||
real(kind=r8), dimension(:,:), intent(out) | ssacmc, | ||
real(kind=r8), dimension(:,:), intent(out) | asmcmc, | ||
real(kind=r8), dimension(:,:), intent(out) | fsfcmc, | ||
real(kind=r8), dimension(:,:), intent(out) | ciwpmc, | ||
real(kind=r8), dimension(:,:), intent(out) | clwpmc, | ||
real(kind=r8), dimension(:), intent(out) | reicmc, | ||
real(kind=r8), dimension(:), intent(out) | dgesmc, | ||
real(kind=r8), dimension(:), intent(out) | relqmc, | ||
real(kind=r8), dimension(:,:), intent(out) | taua, | ||
real(kind=r8), dimension(:,:), intent(out) | ssaa, | ||
real(kind=r8), dimension(:,:), intent(out) | asma | ||
) |
subroutine, public rrtmg_sw_rad::rrtmg_sw | ( | integer, intent(in) | lchnk, |
integer, intent(in) | ncol, | ||
integer, intent(in) | nlay, | ||
integer, intent(inout) | icld, | ||
logical, intent(in) | dotau, | ||
real(kind=r8), dimension(:,:), intent(in) | play, | ||
real(kind=r8), dimension(:,:), intent(in) | plev, | ||
real(kind=r8), dimension(:,:), intent(in) | tlay, | ||
real(kind=r8), dimension(:,:), intent(in) | tlev, | ||
real(kind=r8), dimension(:), intent(in) | tsfc, | ||
real(kind=r8), dimension(:,:), intent(in) | h2ovmr, | ||
real(kind=r8), dimension(:,:), intent(in) | o3vmr, | ||
real(kind=r8), dimension(:,:), intent(in) | co2vmr, | ||
real(kind=r8), dimension(:,:), intent(in) | ch4vmr, | ||
real(kind=r8), dimension(:,:), intent(in) | o2vmr, | ||
real(kind=r8), dimension(:,:), intent(in) | n2ovmr, | ||
real(kind=r8), dimension(:), intent(in) | asdir, | ||
real(kind=r8), dimension(:), intent(in) | asdif, | ||
real(kind=r8), dimension(:), intent(in) | aldir, | ||
real(kind=r8), dimension(:), intent(in) | aldif, | ||
real(kind=r8), dimension(:), intent(in) | coszen, | ||
real(kind=r8), intent(in) | adjes, | ||
integer, intent(in) | dyofyr, | ||
real(kind=r8), intent(in) | scon, | ||
integer, intent(in) | inflgsw, | ||
integer, intent(in) | iceflgsw, | ||
integer, intent(in) | liqflgsw, | ||
real(kind=r8), dimension(:,:), intent(in) | cldfr, | ||
real(kind=r8), dimension(:,:,:), intent(in) | taucld, | ||
real(kind=r8), dimension(:,:,:), intent(in) | ssacld, | ||
real(kind=r8), dimension(:,:,:), intent(in) | asmcld, | ||
real(kind=r8), dimension(:,:), intent(in) | cicewp, | ||
real(kind=r8), dimension(:,:), intent(in) | cliqwp, | ||
real(kind=r8), dimension(:,:), intent(in) | reice, | ||
real(kind=r8), dimension(:,:), intent(in) | reliq, | ||
real(kind=r8), dimension(:,:,:), intent(in) | tauaer, | ||
real(kind=r8), dimension(:,:,:), intent(in) | ssaaer, | ||
real(kind=r8), dimension(:,:,:), intent(in) | asmaer, | ||
real(kind=r8), dimension(:,:), intent(out) | swuflx, | ||
real(kind=r8), dimension(:,:), intent(out) | swdflx, | ||
real(kind=r8), dimension(:,:), intent(out) | swhr, | ||
real(kind=r8), dimension(:,:), intent(out) | swuflxc, | ||
real(kind=r8), dimension(:,:), intent(out) | swdflxc, | ||
real(kind=r8), dimension(:,:), intent(out) | swhrc, | ||
real(kind=r8), dimension(:,:), intent(out) | dirdnuv, | ||
real(kind=r8), dimension(:,:), intent(out) | dirdnir, | ||
real(kind=r8), dimension(:,:), intent(out) | difdnuv, | ||
real(kind=r8), dimension(:,:), intent(out) | difdnir, | ||
real(kind=r8), dimension(:,:), intent(out) | ninflx, | ||
real(kind=r8), dimension(:,:), intent(out) | ninflxc | ||
) |
subroutine, public rrtmg_sw_rad::rrtmg_sw | ( | integer, intent(in) | lchnk, |
integer, intent(in) | ncol, | ||
integer, intent(in) | nlay, | ||
integer, intent(inout) | icld, | ||
real(kind=r8), dimension(:,:), intent(in) | play, | ||
real(kind=r8), dimension(:,:), intent(in) | plev, | ||
real(kind=r8), dimension(:,:), intent(in) | tlay, | ||
real(kind=r8), dimension(:,:), intent(in) | tlev, | ||
real(kind=r8), dimension(:), intent(in) | tsfc, | ||
real(kind=r8), dimension(:,:), intent(in) | h2ovmr, | ||
real(kind=r8), dimension(:,:), intent(in) | o3vmr, | ||
real(kind=r8), dimension(:,:), intent(in) | co2vmr, | ||
real(kind=r8), dimension(:,:), intent(in) | ch4vmr, | ||
real(kind=r8), dimension(:,:), intent(in) | o2vmr, | ||
real(kind=r8), dimension(:,:), intent(in) | n2ovmr, | ||
real(kind=r8), dimension(:), intent(in) | asdir, | ||
real(kind=r8), dimension(:), intent(in) | asdif, | ||
real(kind=r8), dimension(:), intent(in) | aldir, | ||
real(kind=r8), dimension(:), intent(in) | aldif, | ||
real(kind=r8), dimension(:), intent(in) | coszen, | ||
real(kind=r8), intent(in) | adjes, | ||
integer, intent(in) | dyofyr, | ||
real(kind=r8), dimension(1:nbndsw), intent(in) | solvar, | ||
integer, intent(in) | inflgsw, | ||
integer, intent(in) | iceflgsw, | ||
integer, intent(in) | liqflgsw, | ||
real(kind=r8), dimension(:,:,:), intent(in) | cldfmcl, | ||
real(kind=r8), dimension(:,:,:), intent(in) | taucmcl, | ||
real(kind=r8), dimension(:,:,:), intent(in) | ssacmcl, | ||
real(kind=r8), dimension(:,:,:), intent(in) | asmcmcl, | ||
real(kind=r8), dimension(:,:,:), intent(in) | fsfcmcl, | ||
real(kind=r8), dimension(:,:,:), intent(in) | ciwpmcl, | ||
real(kind=r8), dimension(:,:,:), intent(in) | clwpmcl, | ||
real(kind=r8), dimension(:,:), intent(in) | reicmcl, | ||
real(kind=r8), dimension(:,:), intent(in) | relqmcl, | ||
real(kind=r8), dimension(:,:,:), intent(in) | tauaer, | ||
real(kind=r8), dimension(:,:,:), intent(in) | ssaaer, | ||
real(kind=r8), dimension(:,:,:), intent(in) | asmaer, | ||
real(kind=r8), dimension(:,:), intent(out) | swuflx, | ||
real(kind=r8), dimension(:,:), intent(out) | swdflx, | ||
real(kind=r8), dimension(:,:), intent(out) | swhr, | ||
real(kind=r8), dimension(:,:), intent(out) | swuflxc, | ||
real(kind=r8), dimension(:,:), intent(out) | swdflxc, | ||
real(kind=r8), dimension(:,:), intent(out) | swhrc, | ||
real(kind=r8), dimension(:,:), intent(out) | dirdnuv, | ||
real(kind=r8), dimension(:,:), intent(out) | dirdnir, | ||
real(kind=r8), dimension(:,:), intent(out) | difdnuv, | ||
real(kind=r8), dimension(:,:), intent(out) | difdnir, | ||
real(kind=r8), dimension(:,:), intent(out) | ninflx, | ||
real(kind=r8), dimension(:,:), intent(out) | ninflxc, | ||
real(kind=r8), dimension(:,:,:), intent(out) | swuflxs, | ||
real(kind=r8), dimension(:,:,:), intent(out) | swdflxs | ||
) |