subroutine mynnedmf_wrapper::mynnedmf_wrapper_run |
( |
integer, intent(in) |
im, |
|
|
integer, intent(in) |
levs, |
|
|
logical, intent(in) |
flag_init, |
|
|
logical, intent(in) |
flag_restart, |
|
|
logical, intent(in) |
lssav, |
|
|
logical, intent(in) |
ldiag3d, |
|
|
logical, intent(in) |
qdiag3d, |
|
|
logical, intent(in) |
lsidea, |
|
|
logical, intent(in) |
cplflx, |
|
|
real(kind=kind_phys), intent(in) |
delt, |
|
|
real(kind=kind_phys), intent(in) |
dtf, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
dx, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
zorl, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
phii, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
u, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
v, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
omega, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
t3d, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
qgrs_water_vapor, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
qgrs_liquid_cloud, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
qgrs_ice_cloud, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
qgrs_cloud_droplet_num_conc, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
qgrs_cloud_ice_num_conc, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
qgrs_ozone, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
qgrs_water_aer_num_conc, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
qgrs_ice_aer_num_conc, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
qgrs_cccn, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
prsl, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
exner, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
slmsk, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
tsurf, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
qsfc, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
ps, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
ust, |
|
|
real(kind=kind_phys), dimension(:), intent(out) |
ch, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
hflx, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
qflx, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
wspd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
rb, |
|
|
real(kind=kind_phys), dimension(:), intent(out) |
dtsfc1, |
|
|
real(kind=kind_phys), dimension(:), intent(out) |
dqsfc1, |
|
|
real(kind=kind_phys), dimension(:), intent(out) |
dusfc1, |
|
|
real(kind=kind_phys), dimension(:), intent(out) |
dvsfc1, |
|
|
real(kind=kind_phys), dimension(:), intent(out) |
dusfci_diag, |
|
|
real(kind=kind_phys), dimension(:), intent(out) |
dvsfci_diag, |
|
|
real(kind=kind_phys), dimension(:), intent(out) |
dtsfci_diag, |
|
|
real(kind=kind_phys), dimension(:), intent(out) |
dqsfci_diag, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
dusfc_diag, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
dvsfc_diag, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
dtsfc_diag, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
dqsfc_diag, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
dusfc_cice, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
dvsfc_cice, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
dtsfc_cice, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
dqsfc_cice, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
hflx_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
qflx_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
stress_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
oceanfrac, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
fice, |
|
|
logical, dimension(:), intent(in) |
wet, |
|
|
logical, dimension(:), intent(in) |
icy, |
|
|
logical, dimension(:), intent(in) |
dry, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
dusfci_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
dvsfci_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
dtsfci_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
dqsfci_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
dusfc_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
dvsfc_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
dtsfc_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
dqsfc_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
recmol, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
qke, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
qke_adv, |
|
|
real(kind=kind_phys), dimension(:,:), intent(out) |
Tsq, |
|
|
real(kind=kind_phys), dimension(:,:), intent(out) |
Qsq, |
|
|
real(kind=kind_phys), dimension(:,:), intent(out) |
Cov, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
el_pbl, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
sh3d, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
sm3d, |
|
|
real(kind=kind_phys), dimension(:,:), intent(out) |
exch_h, |
|
|
real(kind=kind_phys), dimension(:,:), intent(out) |
exch_m, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
dqke, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
qwt, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
qshear, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
qbuoy, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
qdiss, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
Pblh, |
|
|
integer, dimension(:), intent(inout) |
kpbl, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
qc_bl, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
qi_bl, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
cldfra_bl, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
edmf_a, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
edmf_w, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
edmf_qt, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
edmf_thl, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
edmf_ent, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
edmf_qc, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
sub_thl, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
sub_sqv, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
det_thl, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
det_sqv, |
|
|
integer, dimension(:), intent(inout) |
nupdraft, |
|
|
real(kind=kind_phys), dimension(:), intent(out) |
maxMF, |
|
|
integer, dimension(:), intent(inout) |
ktop_plume, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
dudt, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
dvdt, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
dtdt, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
dqdt_water_vapor, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
dqdt_liquid_cloud, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
dqdt_ice_cloud, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
dqdt_ozone, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
dqdt_cloud_droplet_num_conc, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
dqdt_ice_num_conc, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
dqdt_water_aer_num_conc, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
dqdt_ice_aer_num_conc, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
dqdt_cccn, |
|
|
logical, intent(in) |
flag_for_pbl_generic_tend, |
|
|
real(kind=kind_phys), dimension(:,:,:), intent(inout), optional |
dtend, |
|
|
integer, dimension(:,:), intent(in) |
dtidx, |
|
|
integer, intent(in) |
index_of_temperature, |
|
|
integer, intent(in) |
index_of_x_wind, |
|
|
integer, intent(in) |
index_of_y_wind, |
|
|
integer, intent(in) |
ntke, |
|
|
integer, intent(in) |
ntqv, |
|
|
integer, intent(in) |
ntcw, |
|
|
integer, intent(in) |
ntiw, |
|
|
integer, intent(in) |
ntoz, |
|
|
integer, intent(in) |
ntlnc, |
|
|
integer, intent(in) |
ntinc, |
|
|
integer, intent(in) |
ntwa, |
|
|
integer, intent(in) |
ntia, |
|
|
integer, intent(in) |
index_of_process_pbl, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
htrsw, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
htrlw, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
xmu, |
|
|
logical, intent(in) |
bl_mynn_tkebudget, |
|
|
logical, intent(in) |
bl_mynn_tkeadvect, |
|
|
integer, intent(in) |
bl_mynn_cloudpdf, |
|
|
integer, intent(in) |
bl_mynn_mixlength, |
|
|
integer, intent(in) |
bl_mynn_edmf, |
|
|
integer, intent(in) |
bl_mynn_edmf_mom, |
|
|
integer, intent(in) |
bl_mynn_edmf_tke, |
|
|
integer, intent(in) |
bl_mynn_cloudmix, |
|
|
integer, intent(in) |
bl_mynn_mixqt, |
|
|
integer, intent(in) |
bl_mynn_output, |
|
|
real, intent(in) |
bl_mynn_closure, |
|
|
integer, intent(in) |
icloud_bl, |
|
|
logical, intent(in) |
do_mynnsfclay, |
|
|
integer, intent(in) |
imp_physics, |
|
|
integer, intent(in) |
imp_physics_gfdl, |
|
|
integer, intent(in) |
imp_physics_thompson, |
|
|
integer, intent(in) |
imp_physics_wsm6, |
|
|
real(kind=kind_phys), dimension(:,:,:), intent(inout) |
chem3d, |
|
|
real(kind_phys), dimension(:), intent(inout) |
frp, |
|
|
logical, intent(in) |
mix_chem, |
|
|
logical, intent(in) |
rrfs_smoke, |
|
|
logical, intent(in) |
fire_turb, |
|
|
integer, intent(in) |
nchem, |
|
|
integer, intent(in) |
ndvel, |
|
|
integer, intent(in) |
imp_physics_nssl, |
|
|
logical, intent(in) |
nssl_ccn_on, |
|
|
logical, intent(in) |
ltaerosol, |
|
|
logical, intent(in) |
mraerosol, |
|
|
real(kind_phys), dimension(:,:), intent(in) |
spp_wts_pbl, |
|
|
integer, intent(in) |
spp_pbl, |
|
|
logical, intent(in) |
lprnt, |
|
|
real(kind=kind_phys) |
huge, |
|
|
character(len=*), intent(out) |
errmsg, |
|
|
integer, intent(out) |
errflg |
|
) |
| |