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, |
|
|
type(ty_ozphys), intent(inout) | ozphys, |
|
|
integer, intent(out) | errflg, |
|
|
character(len=*), intent(out) | errmsg ) |
|
private |