subroutine gfs_suite_interstitial_2::gfs_suite_interstitial_2_run |
( |
integer, intent(in) |
im, |
|
|
integer, intent(in) |
levs, |
|
|
logical, intent(in) |
lssav, |
|
|
logical, intent(in) |
ldiag3d, |
|
|
logical, intent(in) |
lsidea, |
|
|
logical, dimension(:), intent(in) |
flag_cice, |
|
|
logical, intent(in) |
shal_cnv, |
|
|
logical, intent(in) |
old_monin, |
|
|
logical, intent(in) |
mstrat, |
|
|
logical, intent(in) |
do_shoc, |
|
|
logical, intent(in) |
frac_grid, |
|
|
integer, intent(in) |
imfshalcnv, |
|
|
real(kind=kind_phys), intent(in) |
dtf, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
xcosz, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
adjsfcdsw, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
adjsfcdlw, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
cice, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
pgr, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
ulwsfc_cice, |
|
|
real(kind=kind_phys), dimension(:,:,:), intent(in) |
lwhd, |
|
|
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(in) |
ctei_rm, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
work1, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
work2, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
prsi, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
tgrs, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
prsl, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
qgrs_water_vapor, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
qgrs_cloud_water, |
|
|
real(kind=kind_phys), intent(in) |
cp, |
|
|
real(kind=kind_phys), intent(in) |
hvap, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
prslk, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
suntim, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
adjsfculw, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
adjsfculw_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
adjsfculw_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
adjsfculw_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
dlwsfc, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
ulwsfc, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
psmean, |
|
|
real(kind=kind_phys), dimension(:,:,:), intent(inout), optional |
dtend, |
|
|
integer, dimension(:,:), intent(in) |
dtidx, |
|
|
integer, intent(in) |
index_of_process_longwave, |
|
|
integer, intent(in) |
index_of_process_shortwave, |
|
|
integer, intent(in) |
index_of_process_pbl, |
|
|
integer, intent(in) |
index_of_process_dcnv, |
|
|
integer, intent(in) |
index_of_process_scnv, |
|
|
integer, intent(in) |
index_of_process_mp, |
|
|
integer, intent(in) |
index_of_temperature, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
ctei_rml, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
ctei_r, |
|
|
integer, dimension(:), intent(inout) |
kinver, |
|
|
logical, dimension(:), intent(in) |
dry, |
|
|
logical, dimension(:), intent(in) |
icy, |
|
|
logical, dimension(:), intent(in) |
wet, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
frland, |
|
|
real(kind=kind_phys), intent(in) |
huge, |
|
|
logical, intent(in) |
use_lw_jacobian, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
htrlwu, |
|
|
character(len=*), intent(out) |
errmsg, |
|
|
integer, intent(out) |
errflg |
|
) |
| |