subroutine, public gfs_surface_generic_post::gfs_surface_generic_post_run |
( |
integer, intent(in) |
im, |
|
|
logical, intent(in) |
cplflx, |
|
|
logical, intent(in) |
cplaqm, |
|
|
logical, intent(in) |
cplchm, |
|
|
logical, intent(in) |
cplwav, |
|
|
logical, intent(in) |
cpllnd, |
|
|
logical, intent(in) |
lssav, |
|
|
logical, dimension(:), intent(in) |
dry, |
|
|
logical, dimension(:), intent(in) |
icy, |
|
|
logical, dimension(:), intent(in) |
wet, |
|
|
integer, intent(in) |
lsm, |
|
|
integer, intent(in) |
lsm_noahmp, |
|
|
real(kind=kind_phys), intent(in) |
dtf, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
ep1d, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
gflx, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
tgrs_1, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
qgrs_1, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
ugrs_1, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
vgrs_1, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
adjsfcdlw, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
adjsfcdsw, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
adjnirbmd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
adjnirdfd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
adjvisbmd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
adjvisdfd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
adjsfculw, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
adjsfculw_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
adjnirbmu, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
adjnirdfu, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
adjvisbmu, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
adjvisdfu, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
t2m, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
q2m, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
u10m, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
v10m, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
tsfc, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
tsfc_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
pgr, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
xcosz, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
evbs, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
evcw, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
trans, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
sbsno, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
snowc, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
snohf, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
pah, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
pahi, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
epi, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
gfluxi, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
t1, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
q1, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
u1, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
v1, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
dlwsfci_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
dswsfci_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
dlwsfc_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
dswsfc_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
dnirbmi_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
dnirdfi_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
dvisbmi_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
dvisdfi_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
dnirbm_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
dnirdf_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
dvisbm_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
dvisdf_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
nlwsfci_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
nlwsfc_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
t2mi_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
q2mi_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
u10mi_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
v10mi_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
tsfci_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
psurfi_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
nnirbmi_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
nnirdfi_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
nvisbmi_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
nvisdfi_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
nswsfci_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
nswsfc_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
nnirbm_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
nnirdf_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
nvisbm_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
nvisdf_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
gflux, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
evbsa, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
evcwa, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
transa, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
sbsnoa, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
snowca, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
snohfa, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
paha, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
ep, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
ecan, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
etran, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
edir, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
waxy, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
runoff, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
srunoff, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
runof, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
drain, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
tecan, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
tetran, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
tedir, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
twa, |
|
|
logical, intent(in) |
lheatstrg, |
|
|
real(kind=kind_phys), intent(in) |
h0facu, |
|
|
real(kind=kind_phys), intent(in) |
h0facs, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
zvfun, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
hflx, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
evap, |
|
|
real(kind=kind_phys), dimension(:), intent(out) |
hflxq, |
|
|
real(kind=kind_phys), dimension(:), intent(out) |
hffac, |
|
|
integer, intent(in) |
isot, |
|
|
integer, intent(in) |
ivegsrc, |
|
|
integer, dimension(:), intent(in) |
islmsk, |
|
|
integer, dimension(:), intent(out) |
vtype, |
|
|
integer, dimension(:), intent(out) |
stype, |
|
|
integer, dimension(:), intent(out) |
scolor, |
|
|
integer, dimension(:), intent(out) |
slope, |
|
|
integer, dimension(:), intent(in) |
vtype_save, |
|
|
integer, dimension(:), intent(in) |
stype_save, |
|
|
integer, dimension(:), intent(in) |
scolor_save, |
|
|
integer, dimension(:), intent(in) |
slope_save, |
|
|
character(len=*), intent(out) |
errmsg, |
|
|
integer, intent(out) |
errflg |
|
) |
| |