12 REAL,
DIMENSION(:),
INTENT(IN) :: pheat
13 REAL,
DIMENSION(:),
INTENT(IN) :: prho
14 REAL,
DIMENSION(:),
INTENT(OUT) :: pt
15 REAL,
DIMENSION(:),
INTENT(OUT),
OPTIONAL:: pwliq
19 REAL,
DIMENSION(:,:),
INTENT(IN) :: pheat
20 REAL,
DIMENSION(:,:),
INTENT(IN) :: prho
21 REAL,
DIMENSION(:,:),
INTENT(OUT) :: pt
22 REAL,
DIMENSION(:,:),
INTENT(OUT),
OPTIONAL:: pwliq
26 REAL,
DIMENSION(:,:,:),
INTENT(IN) :: pheat
27 REAL,
DIMENSION(:,:,:),
INTENT(IN) :: prho
28 REAL,
DIMENSION(:,:,:),
INTENT(OUT) :: pt
29 REAL,
DIMENSION(:,:,:),
INTENT(OUT),
OPTIONAL:: pwliq
45 USE yomhook
,ONLY : lhook, dr_hook
46 USE parkind1
,ONLY : jprb
54 REAL,
DIMENSION(:),
INTENT(IN) :: pheat
55 REAL,
DIMENSION(:),
INTENT(IN) :: prho
56 REAL,
DIMENSION(:),
INTENT(OUT) :: pt
57 REAL,
DIMENSION(:),
INTENT(OUT),
OPTIONAL:: pwliq
58 REAL(KIND=JPRB) :: zhook_handle
65 IF (lhook) CALL dr_hook(
'MODI_SNOW_HEAT_TO_T_WLIQ:SNOW_HEAT_TO_T_WLIQ_1D',0,zhook_handle)
67 IF (present(pwliq)) pwliq = xundef
71 WHERE(prho/=xundef) pt = xtt + (pheat + xlmtt*prho) /
snow3lscap(prho)
75 IF (present(pwliq))
THEN
76 WHERE(prho/=xundef) pwliq = (pt-xtt) *
snow3lscap(prho) / xlmtt
81 IF (present(pwliq))
THEN
86 IF (lhook) CALL dr_hook(
'MODI_SNOW_HEAT_TO_T_WLIQ:SNOW_HEAT_TO_T_WLIQ_1D',1,zhook_handle)
101 USE yomhook
,ONLY : lhook, dr_hook
102 USE parkind1
,ONLY : jprb
110 REAL,
DIMENSION(:,:),
INTENT(IN) :: pheat
111 REAL,
DIMENSION(:,:),
INTENT(IN) :: prho
112 REAL,
DIMENSION(:,:),
INTENT(OUT) :: pt
113 REAL,
DIMENSION(:,:),
INTENT(OUT),
OPTIONAL:: pwliq
114 REAL(KIND=JPRB) :: zhook_handle
121 IF (lhook) CALL dr_hook(
'MODI_SNOW_HEAT_TO_T_WLIQ:SNOW_HEAT_TO_T_WLIQ_2D',0,zhook_handle)
123 IF (present(pwliq)) pwliq = xundef
127 WHERE(prho/=xundef) pt = xtt + (pheat + xlmtt*prho) /
snow3lscap(prho)
131 IF (present(pwliq))
THEN
132 WHERE(prho/=xundef) pwliq = (pt-xtt) *
snow3lscap(prho) / xlmtt
137 IF (present(pwliq))
THEN
139 pwliq = max(0.,pwliq)
142 IF (lhook) CALL dr_hook(
'MODI_SNOW_HEAT_TO_T_WLIQ:SNOW_HEAT_TO_T_WLIQ_2D',1,zhook_handle)
157 USE yomhook
,ONLY : lhook, dr_hook
158 USE parkind1
,ONLY : jprb
166 REAL,
DIMENSION(:,:,:),
INTENT(IN) :: pheat
167 REAL,
DIMENSION(:,:,:),
INTENT(IN) :: prho
168 REAL,
DIMENSION(:,:,:),
INTENT(OUT) :: pt
169 REAL,
DIMENSION(:,:,:),
INTENT(OUT),
OPTIONAL:: pwliq
170 REAL(KIND=JPRB) :: zhook_handle
177 IF (lhook) CALL dr_hook(
'MODI_SNOW_HEAT_TO_T_WLIQ:SNOW_HEAT_TO_T_WLIQ_3D',0,zhook_handle)
179 IF (present(pwliq)) pwliq = xundef
183 WHERE(prho/=xundef) pt = xtt + (pheat + xlmtt*prho) /
snow3lscap(prho)
187 IF (present(pwliq))
THEN
188 WHERE(prho/=xundef) pwliq = (pt-xtt) *
snow3lscap(prho) / xlmtt
193 IF (present(pwliq))
THEN
195 pwliq = max(0.,pwliq)
198 IF (lhook) CALL dr_hook(
'MODI_SNOW_HEAT_TO_T_WLIQ:SNOW_HEAT_TO_T_WLIQ_3D',1,zhook_handle)
subroutine snow_heat_to_t_wliq_2d(PHEAT, PRHO, PT, PWLIQ)
subroutine snow_heat_to_t_wliq_3d(PHEAT, PRHO, PT, PWLIQ)
subroutine snow_heat_to_t_wliq_1d(PHEAT, PRHO, PT, PWLIQ)