| subroutine module_sf_ruclsm::sice |
( |
logical, intent(in) |
debug_print, |
|
|
real (kind_phys), intent(in) |
xlat, |
|
|
real (kind_phys), intent(in) |
xlon, |
|
|
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, |
|
|
real (kind_phys) |
PRCPMS, |
|
|
real (kind_phys) |
RAINF, |
|
|
real (kind_phys), intent(in) |
PATM, |
|
|
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(in) |
EMISS, |
|
|
real (kind_phys), intent(inout) |
RNET, |
|
|
real (kind_phys), intent(in) |
QKMS, |
|
|
real (kind_phys), intent(in) |
TKMS, |
|
|
real (kind_phys), intent(in) |
rho, |
|
|
logical, intent(in) |
myj, |
|
|
real (kind_phys), dimension(1:nzs), intent(in) |
tice, |
|
|
real (kind_phys), dimension(1:nzs), intent(in) |
rhosice, |
|
|
real (kind_phys), dimension(1:nzs), intent(in) |
capice, |
|
|
real (kind_phys), dimension(1:nzs), intent(in) |
thdifice, |
|
|
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) |
xlv, |
|
|
real (kind_phys) |
CP, |
|
|
real (kind_phys) |
rovcp, |
|
|
real (kind_phys), intent(in) |
cw, |
|
|
real (kind_phys) |
stbolt, |
|
|
real (kind_phys) |
tabs, |
|
|
real (kind_phys), dimension( 1:nzs ), intent(inout) |
tso, |
|
|
real (kind_phys), intent(inout) |
dew, |
|
|
real (kind_phys), intent(inout) |
soilt, |
|
|
real (kind_phys), intent(inout) |
qvg, |
|
|
real (kind_phys), intent(inout) |
qsg, |
|
|
real (kind_phys), intent(inout) |
qcg, |
|
|
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) |
evapl, |
|
|
real (kind_phys), intent(inout) |
prcpl, |
|
|
real (kind_phys) |
fltot |
|
) |
| |
|
private |
1.9.3