| subroutine, public gfs_rrtmgp_setup::gfs_rrtmgp_setup_init |
( |
logical, intent(in) |
do_rrtmgp, |
|
|
integer, intent(in) |
imp_physics, |
|
|
integer, intent(in) |
imp_physics_fer_hires, |
|
|
integer, intent(in) |
imp_physics_gfdl, |
|
|
integer, intent(in) |
imp_physics_thompson, |
|
|
integer, intent(in) |
imp_physics_wsm6, |
|
|
integer, intent(in) |
imp_physics_zhao_carr, |
|
|
integer, intent(in) |
imp_physics_zhao_carr_pdf, |
|
|
integer, intent(in) |
imp_physics_mg, |
|
|
real(kind_phys), dimension(:), intent(in) |
si, |
|
|
integer, intent(in) |
levr, |
|
|
integer, intent(in) |
ictm, |
|
|
integer, intent(in) |
isol, |
|
|
integer, intent(in) |
ico2, |
|
|
integer, intent(in) |
iaer, |
|
|
integer, intent(in) |
ntcw, |
|
|
integer, intent(in) |
ntoz, |
|
|
integer, intent(in) |
iovr, |
|
|
integer, intent(in) |
isubc_sw, |
|
|
integer, intent(in) |
isubc_lw, |
|
|
logical, intent(in) |
lalw1bd, |
|
|
integer, dimension(:), intent(in) |
idate, |
|
|
integer, intent(in) |
me, |
|
|
character(len=26), intent(in) |
aeros_file, |
|
|
integer, intent(out) |
iaermdl, |
|
|
integer, intent(out) |
iaerflg, |
|
|
real(kind_phys), intent(in) |
con_pi, |
|
|
real(kind_phys), intent(in) |
con_t0c, |
|
|
real(kind_phys), intent(in) |
con_c, |
|
|
real(kind_phys), intent(in) |
con_boltz, |
|
|
real(kind_phys), intent(in) |
con_plnk, |
|
|
character(len=26), intent(in) |
solar_file, |
|
|
real(kind_phys), intent(in) |
con_solr_2008, |
|
|
real(kind_phys), intent(in) |
con_solr_2002, |
|
|
character(len=26), intent(in) |
co2usr_file, |
|
|
character(len=26), intent(in) |
co2cyc_file, |
|
|
integer, intent(inout) |
ipsd0, |
|
|
character(len=*), intent(out) |
errmsg, |
|
|
integer, intent(out) |
errflg |
|
) |
| |