subroutine, public gfs_rrtmg_setup::gfs_rrtmg_setup_timestep_init |
( |
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, |
|
|
character(len=*), intent(out) | errmsg, |
|
|
integer, intent(out) | errflg ) |