subroutine gfs_pbl_generic_pre::gfs_pbl_generic_pre_run |
( |
integer, intent(in) |
im, |
|
|
integer, intent(in) |
levs, |
|
|
integer, intent(in) |
nvdiff, |
|
|
integer, intent(in) |
ntrac, |
|
|
integer, intent(out) |
rtg_ozone_index, |
|
|
integer, intent(in) |
ntqv, |
|
|
integer, intent(in) |
ntcw, |
|
|
integer, intent(in) |
ntiw, |
|
|
integer, intent(in) |
ntrw, |
|
|
integer, intent(in) |
ntsw, |
|
|
integer, intent(in) |
ntlnc, |
|
|
integer, intent(in) |
ntinc, |
|
|
integer, intent(in) |
ntrnc, |
|
|
integer, intent(in) |
ntsnc, |
|
|
integer, intent(in) |
ntgnc, |
|
|
integer, intent(in) |
ntwa, |
|
|
integer, intent(in) |
ntia, |
|
|
integer, intent(in) |
ntgl, |
|
|
integer, intent(in) |
ntoz, |
|
|
integer, intent(in) |
ntke, |
|
|
integer, intent(in) |
ntkev, |
|
|
integer, intent(in) |
nqrimef, |
|
|
logical, intent(in) |
trans_aero, |
|
|
integer, intent(in) |
ntchs, |
|
|
integer, intent(in) |
ntchm, |
|
|
integer, intent(in) |
ntccn, |
|
|
integer, intent(in) |
nthl, |
|
|
integer, intent(in) |
nthnc, |
|
|
integer, intent(in) |
ntgv, |
|
|
integer, intent(in) |
nthv, |
|
|
integer, intent(in) |
imp_physics, |
|
|
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_mg, |
|
|
integer, intent(in) |
imp_physics_fer_hires, |
|
|
integer, intent(in) |
imp_physics_nssl, |
|
|
logical, intent(in) |
ltaerosol, |
|
|
logical, intent(in) |
mraerosol, |
|
|
logical, intent(in) |
nssl_ccn_on, |
|
|
logical, intent(in) |
nssl_hail_on, |
|
|
logical, intent(in) |
hybedmf, |
|
|
logical, intent(in) |
do_shoc, |
|
|
logical, intent(in) |
satmedmf, |
|
|
real(kind=kind_phys), dimension(:,:,:), intent(in) |
qgrs, |
|
|
real(kind=kind_phys), dimension(:,:, :), intent(inout) |
vdftra, |
|
|
real(kind=kind_phys), dimension(:,:), intent(out) |
save_u, |
|
|
real(kind=kind_phys), dimension(:,:), intent(out) |
save_v, |
|
|
real(kind=kind_phys), dimension(:,:), intent(out) |
save_t, |
|
|
real(kind=kind_phys), dimension(:,:, :), intent(out) |
save_q, |
|
|
logical, intent(in) |
flag_for_pbl_generic_tend, |
|
|
logical, intent(in) |
ldiag3d, |
|
|
logical, intent(in) |
qdiag3d, |
|
|
logical, intent(in) |
lssav, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
ugrs, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
vgrs, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
tgrs, |
|
|
character(len=*), intent(out) |
errmsg, |
|
|
integer, intent(out) |
errflg |
|
) |
| |