12 REAL,
DIMENSION(:),
INTENT(OUT) :: pheat
13 REAL,
DIMENSION(:),
INTENT(IN) :: prho
14 REAL,
DIMENSION(:),
INTENT(IN) :: pt
15 REAL,
DIMENSION(:),
INTENT(IN),
OPTIONAL :: pwliq
19 REAL,
DIMENSION(:,:),
INTENT(OUT) :: pheat
20 REAL,
DIMENSION(:,:),
INTENT(IN) :: prho
21 REAL,
DIMENSION(:,:),
INTENT(IN) :: pt
22 REAL,
DIMENSION(:,:),
INTENT(IN),
OPTIONAL :: pwliq
26 REAL,
DIMENSION(:,:,:),
INTENT(OUT) :: pheat
27 REAL,
DIMENSION(:,:,:),
INTENT(IN) :: prho
28 REAL,
DIMENSION(:,:,:),
INTENT(IN) :: pt
29 REAL,
DIMENSION(:,:,:),
INTENT(IN),
OPTIONAL :: pwliq
45 USE yomhook
,ONLY : lhook, dr_hook
46 USE parkind1
,ONLY : jprb
54 REAL,
DIMENSION(:),
INTENT(OUT) :: pheat
55 REAL,
DIMENSION(:),
INTENT(IN) :: prho
56 REAL,
DIMENSION(:),
INTENT(IN) :: pt
57 REAL,
DIMENSION(:),
INTENT(IN),
OPTIONAL :: pwliq
58 REAL(KIND=JPRB) :: zhook_handle
65 IF (lhook) CALL dr_hook(
'MODI_SNOW_T_WLIQ_TO_HEAT:SNOW_T_WLIQ_TO_HEAT_1D',0,zhook_handle)
70 WHERE(prho/=xundef) pheat = (pt-xtt)*
snow3lscap(prho) - xlmtt * prho
74 IF (present(pwliq))
THEN
75 WHERE(prho/=xundef) pheat = pheat + xlmtt * pwliq
77 IF (lhook) CALL dr_hook(
'MODI_SNOW_T_WLIQ_TO_HEAT:SNOW_T_WLIQ_TO_HEAT_1D',1,zhook_handle)
92 USE yomhook
,ONLY : lhook, dr_hook
93 USE parkind1
,ONLY : jprb
101 REAL,
DIMENSION(:,:),
INTENT(OUT) :: pheat
102 REAL,
DIMENSION(:,:),
INTENT(IN) :: prho
103 REAL,
DIMENSION(:,:),
INTENT(IN) :: pt
104 REAL,
DIMENSION(:,:),
INTENT(IN),
OPTIONAL :: pwliq
105 REAL(KIND=JPRB) :: zhook_handle
112 IF (lhook) CALL dr_hook(
'MODI_SNOW_T_WLIQ_TO_HEAT:SNOW_T_WLIQ_TO_HEAT_2D',0,zhook_handle)
117 WHERE(prho/=xundef) pheat = (pt-xtt)*
snow3lscap(prho) - xlmtt * prho
121 IF (present(pwliq))
THEN
122 WHERE(prho/=xundef) pheat = pheat + xlmtt * pwliq
124 IF (lhook) CALL dr_hook(
'MODI_SNOW_T_WLIQ_TO_HEAT:SNOW_T_WLIQ_TO_HEAT_2D',1,zhook_handle)
139 USE yomhook
,ONLY : lhook, dr_hook
140 USE parkind1
,ONLY : jprb
148 REAL,
DIMENSION(:,:,:),
INTENT(OUT) :: pheat
149 REAL,
DIMENSION(:,:,:),
INTENT(IN) :: prho
150 REAL,
DIMENSION(:,:,:),
INTENT(IN) :: pt
151 REAL,
DIMENSION(:,:,:),
INTENT(IN),
OPTIONAL :: pwliq
152 REAL(KIND=JPRB) :: zhook_handle
159 IF (lhook) CALL dr_hook(
'MODI_SNOW_T_WLIQ_TO_HEAT:SNOW_T_WLIQ_TO_HEAT_3D',0,zhook_handle)
164 WHERE(prho/=xundef) pheat = (pt-xtt)*
snow3lscap(prho) - xlmtt * prho
168 IF (present(pwliq))
THEN
169 WHERE(prho/=xundef) pheat = pheat + xlmtt * pwliq
171 IF (lhook) CALL dr_hook(
'MODI_SNOW_T_WLIQ_TO_HEAT:SNOW_T_WLIQ_TO_HEAT_3D',1,zhook_handle)
subroutine snow_t_wliq_to_heat_3d(PHEAT, PRHO, PT, PWLIQ)
subroutine snow_t_wliq_to_heat_2d(PHEAT, PRHO, PT, PWLIQ)
subroutine snow_t_wliq_to_heat_1d(PHEAT, PRHO, PT, PWLIQ)