subroutine module_sf_ruclsm::sfctmp |
( |
logical, intent(in) |
debug_print, |
|
|
real (kind_phys), intent(in) |
delt, |
|
|
integer, intent(in) |
ktau, |
|
|
real (kind_phys), intent(in) |
conflx, |
|
|
integer, intent(in) |
i, |
|
|
integer, intent(in) |
j, |
|
|
real (kind_phys), intent(in) |
xlat, |
|
|
real (kind_phys), intent(in) |
xlon, |
|
|
real (kind_phys), intent(in) |
testptlat, |
|
|
real (kind_phys), intent(in) |
testptlon, |
|
|
integer, intent(in) |
nzs, |
|
|
integer, intent(in) |
nddzs, |
|
|
integer, intent(in) |
nroot, |
|
|
real (kind_phys), intent(in) |
meltfactor, |
|
|
integer, intent(in) |
isncond_opt, |
|
|
integer, intent(in) |
isncovr_opt, |
|
|
integer, intent(inout) |
ILAND, |
|
|
integer, intent(inout) |
ISOIL, |
|
|
integer, intent(in) |
IVGTYP, |
|
|
integer, intent(in) |
ISLTYP, |
|
|
real (kind_phys) |
PRCPMS, |
|
|
real (kind_phys) |
NEWSNMS, |
|
|
real (kind_phys), intent(inout) |
SNWE, |
|
|
real (kind_phys), intent(inout) |
SNHEI, |
|
|
real (kind_phys), intent(inout) |
SNOWFRAC, |
|
|
logical, intent(in) |
exticeden, |
|
|
real (kind_phys), intent(inout) |
RHOSN, |
|
|
real (kind_phys), intent(in) |
RHONEWSN_ex, |
|
|
real (kind_phys), intent(inout) |
RHONEWSN, |
|
|
real (kind_phys), intent(inout) |
RHOSNFALL, |
|
|
real (kind_phys), intent(inout) |
snowrat, |
|
|
real (kind_phys), intent(inout) |
grauprat, |
|
|
real (kind_phys), intent(inout) |
icerat, |
|
|
real (kind_phys), intent(inout) |
curat, |
|
|
real (kind_phys), intent(in) |
PATM, |
|
|
real (kind_phys), intent(in) |
TABS, |
|
|
real (kind_phys), intent(in) |
QVATM, |
|
|
real (kind_phys), intent(in) |
QCATM, |
|
|
real (kind_phys), intent(in) |
rho, |
|
|
real (kind_phys), intent(in) |
GLW, |
|
|
real (kind_phys), intent(in) |
GSWdn, |
|
|
real (kind_phys), intent(in) |
GSW, |
|
|
real (kind_phys), intent(inout) |
EMISS, |
|
|
real (kind_phys), intent(inout) |
EMISBCK, |
|
|
real (kind_phys), intent(in) |
msnf, |
|
|
real (kind_phys), intent(in) |
facsnf, |
|
|
real (kind_phys), intent(in) |
QKMS, |
|
|
real (kind_phys), intent(in) |
TKMS, |
|
|
real (kind_phys), intent(in) |
PC, |
|
|
real (kind_phys), intent(inout) |
MAVAIL, |
|
|
real (kind_phys), intent(inout) |
CST, |
|
|
real (kind_phys), intent(in) |
VEGFRA, |
|
|
real (kind_phys), intent(inout) |
ALB, |
|
|
real (kind_phys), intent(inout) |
ZNT, |
|
|
real (kind_phys), intent(inout) |
ALB_SNOW, |
|
|
real (kind_phys), intent(in) |
ALB_SNOW_FREE, |
|
|
real (kind_phys), intent(in) |
lai, |
|
|
real (kind_phys), intent(in) |
hgt, |
|
|
real (kind_phys), intent(in) |
stdev, |
|
|
logical, intent(in) |
MYJ, |
|
|
real (kind_phys), intent(in) |
SEAICE, |
|
|
integer, intent(in) |
ISICE, |
|
|
real (kind_phys) |
QWRTZ, |
|
|
real (kind_phys) |
rhocs, |
|
|
real (kind_phys) |
dqm, |
|
|
real (kind_phys) |
qmin, |
|
|
real (kind_phys) |
ref, |
|
|
real (kind_phys) |
wilt, |
|
|
real (kind_phys) |
psis, |
|
|
real (kind_phys) |
bclh, |
|
|
real (kind_phys) |
ksat, |
|
|
real (kind_phys) |
sat, |
|
|
real (kind_phys), intent(in) |
cn, |
|
|
real (kind_phys), dimension(1:nzs), intent(in) |
zsmain, |
|
|
real (kind_phys), dimension(1:nzs), intent(in) |
zshalf, |
|
|
real (kind_phys), dimension(1:nddzs), intent(in) |
DTDZS, |
|
|
real (kind_phys), dimension(1:nzs), intent(in) |
DTDZS2, |
|
|
real (kind_phys), dimension(1:5001), intent(in) |
tbq, |
|
|
real (kind_phys), intent(in) |
cp, |
|
|
real (kind_phys), intent(in) |
rovcp, |
|
|
real (kind_phys), intent(in) |
g0, |
|
|
real (kind_phys), intent(in) |
lv, |
|
|
real (kind_phys), intent(in) |
stbolt, |
|
|
real (kind_phys), intent(in) |
cw, |
|
|
real (kind_phys), intent(in) |
c1sn, |
|
|
real (kind_phys), intent(in) |
c2sn, |
|
|
real (kind_phys), intent(in) |
KQWRTZ, |
|
|
real (kind_phys), intent(in) |
KICE, |
|
|
real (kind_phys), intent(in) |
KWT, |
|
|
real (kind_phys), intent(inout) |
snweprint, |
|
|
real (kind_phys), intent(inout) |
snheiprint, |
|
|
real (kind_phys), intent(inout) |
rsm, |
|
|
real (kind_phys), dimension( 1:nzs ), intent(inout) |
soilm1d, |
|
|
real (kind_phys), dimension( 1:nzs ), intent(inout) |
ts1d, |
|
|
real (kind_phys), dimension( 1:nzs ), intent(inout) |
smfrkeep, |
|
|
real (kind_phys), dimension( 1:nzs ), intent(inout) |
keepfr, |
|
|
real (kind_phys), intent(inout) |
soilt, |
|
|
real (kind_phys), intent(inout) |
soilt1, |
|
|
real (kind_phys), intent(inout) |
tsnav, |
|
|
real (kind_phys), intent(inout) |
dew, |
|
|
real (kind_phys), intent(inout) |
qvg, |
|
|
real (kind_phys), intent(inout) |
qsg, |
|
|
real (kind_phys), intent(inout) |
qcg, |
|
|
real (kind_phys), intent(inout) |
SMELT, |
|
|
real (kind_phys), intent(inout) |
SNOH, |
|
|
real (kind_phys), intent(inout) |
SNFLX, |
|
|
real (kind_phys), intent(inout) |
SNOM, |
|
|
real (kind_phys), intent(inout) |
SNOWFALLAC, |
|
|
real (kind_phys), intent(inout) |
ACSNOW, |
|
|
real (kind_phys), intent(inout) |
edir1, |
|
|
real (kind_phys), intent(inout) |
ec1, |
|
|
real (kind_phys), intent(inout) |
ett1, |
|
|
real (kind_phys), intent(inout) |
eeta, |
|
|
real (kind_phys), intent(inout) |
qfx, |
|
|
real (kind_phys), intent(inout) |
hfx, |
|
|
real (kind_phys), intent(inout) |
s, |
|
|
real (kind_phys), intent(inout) |
sublim, |
|
|
real (kind_phys), intent(inout) |
evapl, |
|
|
real (kind_phys), intent(inout) |
prcpl, |
|
|
real (kind_phys), intent(inout) |
fltot, |
|
|
real (kind_phys), intent(inout) |
runoff1, |
|
|
real (kind_phys), intent(inout) |
runoff2, |
|
|
real (kind_phys), dimension(1:nzs), intent(inout) |
soilice, |
|
|
real (kind_phys), dimension(1:nzs), intent(inout) |
soiliqw, |
|
|
real (kind_phys), intent(inout) |
infiltr, |
|
|
real (kind_phys), intent(inout) |
smf |
|
) |
| |
|
private |