This module sets up ozone climatological profiles and other constant gas profiles, such as co2, ch4, n2o, o2, and those of cfc gases. All data are entered as mixing ratio by volume, except ozone which is mass mixing ratio (g/g). More...
Functions/Subroutines | |
subroutine, public | module_radiation_gases::gas_init (me) |
This subroutine sets up ozone, co2, etc. parameters. If climatology ozone then read in monthly ozone data. More... | |
subroutine, public | module_radiation_gases::gas_update (iyear, imon, iday, ihour, loz1st, ldoco2, me) |
This subroutine reads in 2-d monthly co2 data set for a specified year. Data are in a 15 degree lat/lon horizontal resolution. More... | |
subroutine, public | module_radiation_gases::getgases (plvl, xlon, xlat, IMAX, LMAX, gasdat ) |
This subroutine sets up global distribution of radiation absorbing gases in volume mixing ratio. Currently only co2 has the options from observed values, all other gases are asigned to the climatological values. More... | |
subroutine, public | module_radiation_gases::getozn (prslk, xlat, IMAX, LM, o3mmr ) |
This subroutine sets up climatological ozone profile for radiation calculation. This code is originally written by Shrinivas Moorthi. More... | |
subroutine, public module_radiation_gases::gas_init | ( | integer, intent(in) | me | ) |
me | print message control flag |
subroutine, public module_radiation_gases::gas_update | ( | integer, intent(in) | iyear, |
integer, intent(in) | imon, | ||
integer, intent(in) | iday, | ||
integer, intent(in) | ihour, | ||
logical, intent(in) | loz1st, | ||
logical, intent(in) | ldoco2, | ||
integer, intent(in) | me | ||
) |
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 |
subroutine, public module_radiation_gases::getozn | ( | real (kind=kind_phys), dimension(:,:), intent(in) | prslk, |
real (kind=kind_phys), dimension(:), intent(in) | xlat, | ||
integer, intent(in) | IMAX, | ||
integer, intent(in) | LM, | ||
real (kind=kind_phys), dimension(:,:), intent(out) | o3mmr | ||
) |
prslk | (IMAX,LM), exner function = (p/p0)^{rocp} |
xlat | (IMAX), latitude in radians, default to pi/2 -> -pi/2 range, otherwise see in-line comment |
IMAX,LM | horizontal and vertical dimensions |
o3mmr | (IMAX,LM), output ozone profile in mass mixing ratio (g/g) |