subroutine gfs_pbl_generic_post::gfs_pbl_generic_post_run |
( |
integer, intent(in) |
im, |
|
|
integer, intent(in) |
levs, |
|
|
integer, intent(in) |
nvdiff, |
|
|
integer, intent(in) |
ntrac, |
|
|
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) |
nssl_ccn_on, |
|
|
logical, intent(in) |
ltaerosol, |
|
|
logical, intent(in) |
mraerosol, |
|
|
logical, intent(in) |
nssl_hail_on, |
|
|
logical, intent(in) |
cplflx, |
|
|
logical, intent(in) |
cplaqm, |
|
|
logical, intent(in) |
cplchm, |
|
|
logical, intent(in) |
lssav, |
|
|
logical, intent(in) |
flag_for_pbl_generic_tend, |
|
|
logical, intent(in) |
ldiag3d, |
|
|
logical, intent(in) |
lsidea, |
|
|
logical, intent(in) |
hybedmf, |
|
|
logical, intent(in) |
do_shoc, |
|
|
logical, intent(in) |
satmedmf, |
|
|
logical, intent(in) |
shinhong, |
|
|
logical, intent(in) |
do_ysu, |
|
|
real(kind=kind_phys), dimension(:,:, :), intent(in) |
dvdftra, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
dusfc1, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
dvsfc1, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
dtsfc1, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
dqsfc1, |
|
|
real(kind=kind_phys), intent(in) |
dtf, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
dudt, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
dvdt, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
dtdt, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
htrsw, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
htrlw, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
xmu, |
|
|
real(kind=kind_phys), dimension(:,:, :), intent(inout) |
dqdt, |
|
|
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), 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) |
index_of_process_pbl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
dqsfc_cpl, |
|
|
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_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(inout) |
dusfci_diag, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
dvsfci_diag, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
dtsfci_diag, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
dqsfci_diag, |
|
|
real(kind=kind_phys), intent(in) |
rd, |
|
|
real(kind=kind_phys), intent(in) |
cp, |
|
|
real(kind=kind_phys), intent(in) |
fvirt, |
|
|
real(kind=kind_phys), intent(in) |
hvap, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
t1, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
q1, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
prsl, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
hflx, |
|
|
real(kind=kind_phys), dimension(:), intent(out) |
ushfsfci, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
oceanfrac, |
|
|
integer, intent(in) |
kdt, |
|
|
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, |
|
|
logical, intent(in) |
use_med_flux, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
dtsfc_med, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
dqsfc_med, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
dusfc_med, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
dvsfc_med, |
|
|
logical, dimension(:), intent(in) |
wet, |
|
|
logical, dimension(:), intent(in) |
dry, |
|
|
logical, dimension(:), intent(in) |
icy, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
wind, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
stress_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
hflx_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
evap_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
ugrs1, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
vgrs1, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
hffac, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
ugrs, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
vgrs, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
tgrs, |
|
|
real(kind=kind_phys), dimension(:,:, :), intent(in) |
qgrs, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
save_u, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
save_v, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
save_t, |
|
|
real(kind=kind_phys), dimension(:,:, :), intent(in) |
save_q, |
|
|
real(kind=kind_phys), intent(in) |
huge, |
|
|
character(len=*), intent(out) |
errmsg, |
|
|
integer, intent(out) |
errflg |
|
) |
| |