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) | ntrz, |
|
|
integer, intent(in) | ntgz, |
|
|
integer, intent(in) | nthz, |
|
|
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) | nssl_3moment, |
|
|
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 ) |