subroutine gfs_suite_interstitial_3::gfs_suite_interstitial_3_run |
( |
logical, dimension(:), intent(in) |
otsptflag, |
|
|
integer, intent(in) |
im, |
|
|
integer, intent(in) |
levs, |
|
|
integer, intent(in) |
nn, |
|
|
logical, intent(in) |
cscnv, |
|
|
integer, intent(in) |
imfshalcnv, |
|
|
integer, intent(in) |
imfdeepcnv, |
|
|
integer, intent(in) |
imfshalcnv_samf, |
|
|
integer, intent(in) |
imfdeepcnv_samf, |
|
|
integer, intent(in) |
imfdeepcnv_unified, |
|
|
integer, intent(in) |
imfshalcnv_unified, |
|
|
logical, intent(in) |
progsigma, |
|
|
logical, intent(in) |
first_time_step, |
|
|
logical, intent(in) |
restart, |
|
|
logical, intent(in) |
satmedmf, |
|
|
logical, intent(in) |
trans_trac, |
|
|
logical, intent(in) |
do_shoc, |
|
|
logical, intent(in) |
ltaerosol, |
|
|
integer, intent(in) |
ntrac, |
|
|
integer, intent(in) |
ntcw, |
|
|
integer, intent(in) |
ntiw, |
|
|
integer, intent(in) |
ntclamt, |
|
|
integer, intent(in) |
ntrw, |
|
|
integer, intent(in) |
ntsw, |
|
|
integer, intent(in) |
ntrnc, |
|
|
integer, intent(in) |
ntsnc, |
|
|
integer, intent(in) |
ntgl, |
|
|
integer, intent(in) |
ntgnc, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
xlon, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
xlat, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
gt0, |
|
|
real(kind=kind_phys), dimension(:,:,:), intent(in) |
gq0, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
sigmain, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
sigmaout, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
qmicro, |
|
|
integer, intent(in) |
imp_physics, |
|
|
integer, intent(in) |
imp_physics_mg, |
|
|
integer, intent(in) |
imp_physics_zhao_carr, |
|
|
integer, intent(in) |
imp_physics_zhao_carr_pdf, |
|
|
integer, intent(in) |
imp_physics_gfdl, |
|
|
integer, intent(in) |
imp_physics_thompson, |
|
|
integer, dimension(:,:), intent(in) |
dtidx, |
|
|
integer, intent(in) |
ntlnc, |
|
|
integer, intent(in) |
imp_physics_wsm6, |
|
|
integer, intent(in) |
imp_physics_fer_hires, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
prsi, |
|
|
integer, intent(in) |
ntinc, |
|
|
integer, intent(in) |
imp_physics_nssl, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
prsl, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
prslk, |
|
|
real(kind=kind_phys), intent(in) |
rhcbot, |
|
|
real(kind=kind_phys), intent(in) |
rhcpbl, |
|
|
real(kind=kind_phys), intent(in) |
rhctop, |
|
|
real(kind=kind_phys), intent(in) |
rhcmax, |
|
|
integer, dimension(:), intent(in) |
islmsk, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
work1, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
work2, |
|
|
integer, dimension(:), intent(in) |
kpbl, |
|
|
integer, dimension(:), intent(in) |
kinver, |
|
|
logical, intent(in) |
ras, |
|
|
integer, intent(in) |
me, |
|
|
real, dimension(:,:), intent(out) |
save_lnc, |
|
|
real, dimension(:,:), intent(out) |
save_inc, |
|
|
logical, intent(in) |
ldiag3d, |
|
|
logical, intent(in) |
qdiag3d, |
|
|
integer, intent(in) |
index_of_process_conv_trans, |
|
|
real(kind=kind_phys), dimension(:,:,:), intent(inout) |
clw, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
rhc, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
save_qc, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
save_qi, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
save_tcp, |
|
|
character(len=*), intent(out) |
errmsg, |
|
|
integer, intent(out) |
errflg |
|
) |
| |