subroutine module_sf_ruclsm::snowtemp |
( |
logical, intent(in) |
debug_print, |
|
|
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) |
i, |
|
|
integer, intent(in) |
j, |
|
|
integer, intent(in) |
iland, |
|
|
integer, intent(in) |
isoil, |
|
|
real (kind_phys), intent(in) |
delt, |
|
|
integer, intent(in) |
ktau, |
|
|
real (kind_phys), intent(in) |
conflx, |
|
|
integer, intent(in) |
nzs, |
|
|
integer, intent(in) |
nddzs, |
|
|
integer, intent(in) |
nroot, |
|
|
integer, intent(in) |
isncond_opt, |
|
|
integer, intent(in) |
isncovr_opt, |
|
|
real (kind_phys), intent(inout) |
snwe, |
|
|
real (kind_phys), intent(in) |
snwepr, |
|
|
real (kind_phys), intent(inout) |
snhei, |
|
|
real (kind_phys), intent(in) |
newsnow, |
|
|
real (kind_phys), intent(inout) |
snowfrac, |
|
|
real (kind_phys), intent(in) |
snhei_crit, |
|
|
real (kind_phys) |
beta, |
|
|
real (kind_phys), intent(in) |
deltsn, |
|
|
real (kind_phys), intent(in) |
snth, |
|
|
real (kind_phys), intent(inout) |
rhosn, |
|
|
real (kind_phys), intent(in) |
rhonewsn, |
|
|
real (kind_phys), intent(in) |
meltfactor, |
|
|
real (kind_phys), intent(in) |
prcpms, |
|
|
real (kind_phys), intent(in) |
rainf, |
|
|
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) |
glw, |
|
|
real (kind_phys), intent(in) |
gsw, |
|
|
real (kind_phys), intent(inout) |
emiss, |
|
|
real (kind_phys) |
rnet, |
|
|
real (kind_phys), intent(in) |
qkms, |
|
|
real (kind_phys), intent(in) |
tkms, |
|
|
real (kind_phys), intent(in) |
pc, |
|
|
real (kind_phys), intent(in) |
rho, |
|
|
real (kind_phys), intent(in) |
vegfrac, |
|
|
real (kind_phys), dimension(1:nzs), intent(in) |
thdif, |
|
|
real (kind_phys), dimension(1:nzs), intent(in) |
cap, |
|
|
real (kind_phys), intent(inout) |
drycan, |
|
|
real (kind_phys), intent(inout) |
wetcan, |
|
|
real (kind_phys), intent(inout) |
cst, |
|
|
real (kind_phys), dimension(1:nzs), intent(in) |
tranf, |
|
|
real (kind_phys), intent(in) |
transum, |
|
|
real (kind_phys), intent(inout) |
dew, |
|
|
real (kind_phys), intent(inout) |
mavail, |
|
|
real (kind_phys), intent(in) |
dqm, |
|
|
real (kind_phys), intent(in) |
qmin, |
|
|
real (kind_phys), intent(in) |
psis, |
|
|
real (kind_phys), intent(in) |
bclh, |
|
|
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:5001), intent(in) |
tbq, |
|
|
real (kind_phys), intent(in) |
xlvm, |
|
|
real (kind_phys), intent(in) |
cp, |
|
|
real (kind_phys), intent(in) |
rovcp, |
|
|
real (kind_phys), intent(in) |
g0_p, |
|
|
real (kind_phys), intent(in) |
cvw, |
|
|
real (kind_phys), intent(in) |
stbolt, |
|
|
real (kind_phys), intent(out) |
snweprint, |
|
|
real (kind_phys), intent(out) |
snheiprint, |
|
|
real (kind_phys), intent(out) |
rsm, |
|
|
real (kind_phys), dimension( 1:nzs ), intent(inout) |
tso, |
|
|
real (kind_phys), intent(inout) |
soilt, |
|
|
real (kind_phys), intent(inout) |
soilt1, |
|
|
real (kind_phys), intent(inout) |
tsnav, |
|
|
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) |
s, |
|
|
integer, intent(out) |
ilnb, |
|
|
real (kind_phys) |
x |
|
) |
| |
|
private |