subroutine gfs_rrtmg_setup::radupdate |
( |
integer, dimension(:), intent(in) |
idate, |
|
|
integer, dimension(:), intent(in) |
jdate, |
|
|
real (kind=kind_phys), intent(in) |
deltsw, |
|
|
real (kind=kind_phys), intent(in) |
deltim, |
|
|
logical, intent(in) |
lsswr, |
|
|
integer, intent(in) |
me, |
|
|
integer, intent(in) |
iaermdl, |
|
|
integer, intent(in) |
iaerflg, |
|
|
integer, intent(in) |
isol, |
|
|
character(len=26), intent(in) |
aeros_file, |
|
|
real (kind=kind_phys), intent(out) |
slag, |
|
|
real (kind=kind_phys), intent(out) |
sdec, |
|
|
real (kind=kind_phys), intent(out) |
cdec, |
|
|
real (kind=kind_phys), intent(out) |
solcon, |
|
|
real (kind=kind_phys), intent(in) |
con_pi, |
|
|
character(len=26), intent(in) |
co2dat_file, |
|
|
character(len=26), intent(in) |
co2gbl_file, |
|
|
integer, intent(in) |
ictm, |
|
|
integer, intent(in) |
ico2, |
|
|
integer, intent(in) |
ntoz, |
|
|
integer, intent(out) |
errflg, |
|
|
character(len=*), intent(out) |
errmsg |
|
) |
| |
|
private |