9 |
SUBROUTINE SUFLUX_SICE( |
SUBROUTINE SUFLUX_SICE( |
10 |
I PSA, FMASK, EMISloc, |
I PSA, FMASK, EMISloc, |
11 |
I Tsurf, dTskin, SSR, SLRD, |
I Tsurf, dTskin, SSR, SLRD, |
12 |
I T0, Q0, EnPrec, CDENVV, |
I T0, Q0, CDENVV, |
13 |
O SHF, EVAP, SLRU, |
O SHF, EVAP, SLRU, |
14 |
O Evp0, dEvp, Slr0, dSlr, sFlx, |
O Evp0, dEvp, Slr0, dSlr, sFlx, |
15 |
O TSFC, TSKIN, |
O TSFC, TSKIN, |
54 |
C SLRD :: sfc lw radiation (downward flux)(2-dim) |
C SLRD :: sfc lw radiation (downward flux)(2-dim) |
55 |
C T0 :: near-surface air temperature (2-dim) |
C T0 :: near-surface air temperature (2-dim) |
56 |
C Q0 :: near-surface sp. humidity [g/kg](2-dim) |
C Q0 :: near-surface sp. humidity [g/kg](2-dim) |
|
C EnPrec :: energy of precipitation (snow, rain temp) [J/g] |
|
57 |
C CDENVV :: sensible heat flux coefficient (2-dim) |
C CDENVV :: sensible heat flux coefficient (2-dim) |
58 |
C-- Output: |
C-- Output: |
59 |
C SHF :: sensible heat flux (2-dim) |
C SHF :: sensible heat flux (2-dim) |
74 |
_RL PSA(NGP), FMASK(NGP), EMISloc |
_RL PSA(NGP), FMASK(NGP), EMISloc |
75 |
_RL Tsurf(NGP), dTskin(NGP) |
_RL Tsurf(NGP), dTskin(NGP) |
76 |
_RL SSR(NGP), SLRD(NGP) |
_RL SSR(NGP), SLRD(NGP) |
77 |
_RL T0(NGP), Q0(NGP), CDENVV(NGP), EnPrec(NGP) |
_RL T0(NGP), Q0(NGP), CDENVV(NGP) |
78 |
|
|
79 |
_RL SHF(NGP), EVAP(NGP), SLRU(NGP) |
_RL SHF(NGP), EVAP(NGP), SLRU(NGP) |
80 |
_RL Evp0(NGP), dEvp(NGP), Slr0(NGP), dSlr(NGP), sFlx(NGP,0:2) |
_RL Evp0(NGP), dEvp(NGP), Slr0(NGP), dSlr(NGP), sFlx(NGP,0:2) |