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_phys), intent(in) | delt, |
|
|
real(kind_phys), intent(in) | dtf, |
|
|
real(kind_phys), dimension(:), intent(in) | dx, |
|
|
real(kind_phys), dimension(:), intent(in) | zorl, |
|
|
real(kind_phys), dimension(:,:), intent(in) | phii, |
|
|
real(kind_phys), dimension(:,:), intent(in) | u, |
|
|
real(kind_phys), dimension(:,:), intent(in) | v, |
|
|
real(kind_phys), dimension(:,:), intent(in) | omega, |
|
|
real(kind_phys), dimension(:,:), intent(inout) | t3d, |
|
|
real(kind_phys), dimension(:,:), intent(inout) | qgrs_water_vapor, |
|
|
real(kind_phys), dimension(:,:), intent(inout) | qgrs_liquid_cloud, |
|
|
real(kind_phys), dimension(:,:), intent(inout) | qgrs_ice, |
|
|
real(kind_phys), dimension(:,:), intent(inout) | qgrs_snow, |
|
|
real(kind_phys), dimension(:,:), intent(in), optional | qgrs_cloud_droplet_num_conc, |
|
|
real(kind_phys), dimension(:,:), intent(in) | qgrs_cloud_ice_num_conc, |
|
|
real(kind_phys), dimension(:,:), intent(in) | qgrs_ozone, |
|
|
real(kind_phys), dimension(:,:), intent(in), optional | qgrs_water_aer_num_conc, |
|
|
real(kind_phys), dimension(:,:), intent(in), optional | qgrs_ice_aer_num_conc, |
|
|
real(kind_phys), dimension(:,:), intent(in), optional | qgrs_cccn, |
|
|
real(kind_phys), dimension(:,:), intent(in) | prsl, |
|
|
real(kind_phys), dimension(:,:), intent(in) | prsi, |
|
|
real(kind_phys), dimension(:,:), intent(in) | exner, |
|
|
real(kind_phys), dimension(:), intent(in) | slmsk, |
|
|
real(kind_phys), dimension(:), intent(in) | tsurf, |
|
|
real(kind_phys), dimension(:), intent(in) | qsfc, |
|
|
real(kind_phys), dimension(:), intent(in) | ps, |
|
|
real(kind_phys), dimension(:), intent(in) | ust, |
|
|
real(kind_phys), dimension(:), intent(out) | ch, |
|
|
real(kind_phys), dimension(:), intent(in) | hflx, |
|
|
real(kind_phys), dimension(:), intent(in) | qflx, |
|
|
real(kind_phys), dimension(:), intent(in) | wspd, |
|
|
real(kind_phys), dimension(:), intent(in) | rb, |
|
|
real(kind_phys), dimension(:), intent(out) | dtsfc1, |
|
|
real(kind_phys), dimension(:), intent(out) | dqsfc1, |
|
|
real(kind_phys), dimension(:), intent(out) | dusfc1, |
|
|
real(kind_phys), dimension(:), intent(out) | dvsfc1, |
|
|
real(kind_phys), dimension(:), intent(out) | dusfci_diag, |
|
|
real(kind_phys), dimension(:), intent(out) | dvsfci_diag, |
|
|
real(kind_phys), dimension(:), intent(out) | dtsfci_diag, |
|
|
real(kind_phys), dimension(:), intent(out) | dqsfci_diag, |
|
|
real(kind_phys), dimension(:), intent(inout) | dusfc_diag, |
|
|
real(kind_phys), dimension(:), intent(inout) | dvsfc_diag, |
|
|
real(kind_phys), dimension(:), intent(inout) | dtsfc_diag, |
|
|
real(kind_phys), dimension(:), intent(inout) | dqsfc_diag, |
|
|
real(kind_phys), dimension(:), intent(in), optional | dusfc_cice, |
|
|
real(kind_phys), dimension(:), intent(in), optional | dvsfc_cice, |
|
|
real(kind_phys), dimension(:), intent(in), optional | dtsfc_cice, |
|
|
real(kind_phys), dimension(:), intent(in), optional | dqsfc_cice, |
|
|
real(kind_phys), dimension(:), intent(in) | hflx_wat, |
|
|
real(kind_phys), dimension(:), intent(in) | qflx_wat, |
|
|
real(kind_phys), dimension(:), intent(in) | stress_wat, |
|
|
real(kind_phys), dimension(:), intent(in) | oceanfrac, |
|
|
real(kind_phys), dimension(:), intent(in) | fice, |
|
|
logical, dimension(:), intent(in) | wet, |
|
|
logical, dimension(:), intent(in) | icy, |
|
|
logical, dimension(:), intent(in) | dry, |
|
|
real(kind_phys), dimension(:), intent(inout), optional | dusfci_cpl, |
|
|
real(kind_phys), dimension(:), intent(inout), optional | dvsfci_cpl, |
|
|
real(kind_phys), dimension(:), intent(inout), optional | dtsfci_cpl, |
|
|
real(kind_phys), dimension(:), intent(inout), optional | dqsfci_cpl, |
|
|
real(kind_phys), dimension(:), intent(inout), optional | dusfc_cpl, |
|
|
real(kind_phys), dimension(:), intent(inout), optional | dvsfc_cpl, |
|
|
real(kind_phys), dimension(:), intent(inout), optional | dtsfc_cpl, |
|
|
real(kind_phys), dimension(:), intent(inout), optional | dqsfc_cpl, |
|
|
real(kind_phys), dimension(:), intent(in) | recmol, |
|
|
real(kind_phys), dimension(:,:), intent(inout), optional | qke, |
|
|
real(kind_phys), dimension(:,:), intent(inout) | qke_adv, |
|
|
real(kind_phys), dimension(:,:), intent(out), optional | tsq, |
|
|
real(kind_phys), dimension(:,:), intent(out), optional | qsq, |
|
|
real(kind_phys), dimension(:,:), intent(out), optional | cov, |
|
|
real(kind_phys), dimension(:,:), intent(inout), optional | el_pbl, |
|
|
real(kind_phys), dimension(:,:), intent(inout), optional | sh3d, |
|
|
real(kind_phys), dimension(:,:), intent(inout), optional | sm3d, |
|
|
real(kind_phys), dimension(:,:), intent(out), optional | exch_h, |
|
|
real(kind_phys), dimension(:,:), intent(out), optional | exch_m, |
|
|
real(kind_phys), dimension(:,:), intent(out), optional | dqke, |
|
|
real(kind_phys), dimension(:,:), intent(out), optional | qwt, |
|
|
real(kind_phys), dimension(:,:), intent(out), optional | qshear, |
|
|
real(kind_phys), dimension(:,:), intent(out), optional | qbuoy, |
|
|
real(kind_phys), dimension(:,:), intent(out), optional | qdiss, |
|
|
real(kind_phys), dimension(:), intent(inout) | pblh, |
|
|
integer, dimension(:), intent(inout) | kpbl, |
|
|
real(kind_phys), dimension(:,:), intent(inout), optional | qc_bl, |
|
|
real(kind_phys), dimension(:,:), intent(inout), optional | qi_bl, |
|
|
real(kind_phys), dimension(:,:), intent(inout), optional | cldfra_bl, |
|
|
real(kind_phys), dimension(:,:), intent(inout), optional | edmf_a, |
|
|
real(kind_phys), dimension(:,:), intent(inout), optional | edmf_w, |
|
|
real(kind_phys), dimension(:,:), intent(inout), optional | edmf_qt, |
|
|
real(kind_phys), dimension(:,:), intent(inout), optional | edmf_thl, |
|
|
real(kind_phys), dimension(:,:), intent(inout), optional | edmf_ent, |
|
|
real(kind_phys), dimension(:,:), intent(inout), optional | edmf_qc, |
|
|
real(kind_phys), dimension(:,:), intent(inout), optional | sub_thl, |
|
|
real(kind_phys), dimension(:,:), intent(inout), optional | sub_sqv, |
|
|
real(kind_phys), dimension(:,:), intent(inout), optional | det_thl, |
|
|
real(kind_phys), dimension(:,:), intent(inout), optional | det_sqv, |
|
|
real(kind_phys), dimension(:), intent(out), optional | maxwidth, |
|
|
real(kind_phys), dimension(:), intent(out), optional | maxmf, |
|
|
real(kind_phys), dimension(:), intent(out), optional | ztop_plume, |
|
|
integer, dimension(:), intent(inout), optional | ktop_plume, |
|
|
real(kind_phys), dimension(:,:), intent(inout) | dudt, |
|
|
real(kind_phys), dimension(:,:), intent(inout) | dvdt, |
|
|
real(kind_phys), dimension(:,:), intent(inout) | dtdt, |
|
|
real(kind_phys), dimension(:,:), intent(inout) | dqdt_water_vapor, |
|
|
real(kind_phys), dimension(:,:), intent(inout) | dqdt_liquid_cloud, |
|
|
real(kind_phys), dimension(:,:), intent(inout) | dqdt_ice, |
|
|
real(kind_phys), dimension(:,:), intent(inout) | dqdt_snow, |
|
|
real(kind_phys), dimension(:,:), intent(inout) | dqdt_ozone, |
|
|
real(kind_phys), dimension(:,:), intent(inout), optional | dqdt_cloud_droplet_num_conc, |
|
|
real(kind_phys), dimension(:,:), intent(inout) | dqdt_ice_num_conc, |
|
|
real(kind_phys), dimension(:,:), intent(inout), optional | dqdt_water_aer_num_conc, |
|
|
real(kind_phys), dimension(:,:), intent(inout), optional | dqdt_ice_aer_num_conc, |
|
|
real(kind_phys), dimension(:,:), intent(inout), optional | dqdt_cccn, |
|
|
real(kind_phys), dimension(:,:,:), intent(out) | tmf, |
|
|
logical, intent(in) | flag_for_pbl_generic_tend, |
|
|
real(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) | ntsw, |
|
|
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_phys), dimension(:,:), intent(in) | htrsw, |
|
|
real(kind_phys), dimension(:,:), intent(in) | htrlw, |
|
|
real(kind_phys), dimension(:), intent(in) | xmu, |
|
|
integer, intent(in) | tke_budget, |
|
|
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(kind_phys), 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, |
|
|
integer, intent(in) | imp_physics_fa, |
|
|
integer, intent(in) | imfdeepcnv, |
|
|
integer, intent(in) | imfdeepcnv_c3, |
|
|
integer, intent(in) | imfdeepcnv_samf, |
|
|
real(kind_phys), dimension(:,:,:), intent(inout), optional | chem3d, |
|
|
real(kind_phys), dimension(:), intent(inout), optional | frp, |
|
|
logical, intent(in) | mix_chem, |
|
|
logical, intent(in) | rrfs_sd, |
|
|
logical, intent(in) | enh_mix, |
|
|
integer, intent(in) | nchem, |
|
|
integer, intent(in) | ndvel, |
|
|
real(kind_phys), dimension(:,: ), intent(in), optional | vdep, |
|
|
logical, intent(in) | smoke_dbg, |
|
|
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), optional | spp_wts_pbl, |
|
|
integer, intent(in) | spp_pbl, |
|
|
logical, intent(in) | lprnt, |
|
|
real(kind_phys), intent(in) | huge, |
|
|
character(len=*), intent(out) | errmsg, |
|
|
integer, intent(out) | errflg ) |