47 USE yomhook
,ONLY : lhook, dr_hook
48 USE parkind1
,ONLY : jprb
55 REAL,
INTENT(IN) :: pemissn
62 REAL(KIND=JPRB) :: zhook_handle
65 IF (lhook) CALL dr_hook(
'INIT_SNOW_LW',0,zhook_handle)
66 DO jpatch=1,
SIZE(tpsnow%WSNOW,3)
71 IF (tpsnow%SCHEME==
'1-L' .OR. tpsnow%SCHEME==
'3-L' .OR. tpsnow%SCHEME==
'CRO')
THEN
72 WHERE(tpsnow%WSNOW(:,1,jpatch)==0. .OR. tpsnow%WSNOW(:,1,jpatch)==xundef )
73 tpsnow%EMIS (:,jpatch)= xundef
75 tpsnow%EMIS (:,jpatch)= pemissn
82 IF (tpsnow%SCHEME==
'1-L')
THEN
83 WHERE(tpsnow%WSNOW(:,1,jpatch)==0. .OR. tpsnow%WSNOW(:,1,jpatch)==xundef )
84 tpsnow%TS (:,jpatch)= xundef
86 tpsnow%TS(:,jpatch) = tpsnow%T(:, tpsnow%NLAYER,jpatch)
90 IF (tpsnow%SCHEME==
'3-L' .OR. tpsnow%SCHEME==
'CRO')
THEN
91 WHERE(tpsnow%WSNOW(:,1,jpatch)==0. .OR. tpsnow%WSNOW(:,1,jpatch)==xundef )
92 tpsnow%TS (:,jpatch)= xundef
94 tpsnow%TS(:,jpatch) = xtt + (tpsnow%HEAT(:,1,jpatch) &
95 + xlmtt * tpsnow%RHO(:,1,jpatch) ) &
97 tpsnow%TS(:,jpatch) = min(xtt, tpsnow%TS(:,jpatch))
102 IF (lhook) CALL dr_hook(
'INIT_SNOW_LW',1,zhook_handle)
subroutine init_snow_lw(PEMISSN, TPSNOW)