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 ) |