Common Community Physics Package (CCPP) Scientific Documentation  Version 2.0
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 
)
Parameters
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,LMAXhorizontal/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

getgases General Algorithm

Parameters
[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
  • Internal module variables :
    co2vmr_sav - saved monthly co2 concentration from sub gas_update
    co2_glb - saved global annual mean co2 value from gas_update
    gco2cyc - saved global seasonal variation of co2 climatology in 12-month form
Parameters
[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
  • Internal module variables :
    co2vmr_sav - saved monthly co2 concentration from sub gas_update
    co2_glb - saved global annual mean co2 value from gas_update
    gco2cyc - saved global seasonal variation of co2 climatology in 12-month form

References physcons::con_pi, physparam::ico2flg, and physparam::ivflip.