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 |