subroutine, public module_radiation_gases::getgases | ( | real (kind=kind_phys), dimension(:,:), intent(in) | plvl, |
real (kind=kind_phys), dimension(:), intent(in) | xlon, | ||
real (kind=kind_phys), dimension(:), intent(in) | xlat, | ||
integer, intent(in) | IMAX, | ||
integer, intent(in) | LMAX, | ||
real (kind=kind_phys), dimension(:,:,:), intent(out) | gasdat | ||
) |
plvl | (IMAX,LMAX+1), pressure at model layer interfaces (mb) |
xlon | (IMAX), grid longitude in radians, ok both 0->2pi or -pi -> +pi arrangements |
xlat | (IMAX), grid latitude in radians, default range to pi/2 -> -pi/2, otherwise see in-line comment |
IMAX,LMAX | horizontal/vertical dimensions for output data |
gasdat | (IMAX,LMAX,NF_VGAS) - gases volume mixing ratioes (:,:,1) - co2 (:,:,2) - n2o (:,:,3) - ch4 (:,:,4) - o2 (:,:,5) - co (:,:,6) - cfc11 (:,:,7) - cfc12 (:,:,8) - cfc22 (:,:,9) - ccl4 (:,:,10) - cfc113 |
[in] | imax | - External module variables: (in physparam) ico2flg - co2 data source control flag =0: use prescribed co2 global mean value =1: use input global mean co2 value (co2_glb) =2: use input 2-d monthly co2 value (co2vmr_sav) ivflip - vertical profile indexing flag |
[in] | lmax | - External module variables: (in physparam) ico2flg - co2 data source control flag =0: use prescribed co2 global mean value =1: use input global mean co2 value (co2_glb) =2: use input 2-d monthly co2 value (co2vmr_sav) ivflip - vertical profile indexing flag |
References physcons::con_pi, physparam::ico2flg, and physparam::ivflip.