38 USE yomhook
,ONLY : lhook, dr_hook
39 USE parkind1
,ONLY : jprb
107 REAL,
INTENT(IN) :: pts
108 REAL,
INTENT(IN) :: pta
111 REAL(KIND=JPRB) :: zhook_handle
113 IF (lhook) CALL dr_hook(
'MODE_CONV_DOE:CHTC_VERT_DOE',0,zhook_handle)
118 pchtc = 1.31 * (abs(pta - pts))**(1./3.)
120 IF (lhook) CALL dr_hook(
'MODE_CONV_DOE:CHTC_VERT_DOE',1,zhook_handle)
168 REAL,
DIMENSION(:),
INTENT(IN) :: pts
169 REAL,
DIMENSION(:),
INTENT(IN) :: pta
170 REAL,
DIMENSION(SIZE(PTS)) :: pchtc
172 REAL(KIND=JPRB) :: zhook_handle
174 IF (lhook) CALL dr_hook(
'MODE_CONV_DOE:CHTC_VERT_DOE',0,zhook_handle)
179 pchtc = 1.31 * (abs(pta - pts))**(1./3.)
181 IF (lhook) CALL dr_hook(
'MODE_CONV_DOE:CHTC_VERT_DOE',1,zhook_handle)
229 REAL,
DIMENSION(:),
INTENT(IN) :: pts
230 REAL,
DIMENSION(:),
INTENT(IN) :: pta
231 REAL,
DIMENSION(SIZE(PTS)) :: pchtc
233 REAL(KIND=JPRB) :: zhook_handle
235 IF (lhook) CALL dr_hook(
'MODE_CONV_DOE:CHTC_UP_DOE',0,zhook_handle)
241 pchtc = 9.482 * (pts - pta)**(1./3.) / (7.283 - 1)
243 pchtc = 1.810 * (pta - pts)**(1./3.) / (1.382 + 1)
247 IF (lhook) CALL dr_hook(
'MODE_CONV_DOE:CHTC_UP_DOE',1,zhook_handle)
294 REAL,
INTENT(IN) :: pts
295 REAL,
INTENT(IN) :: pta
298 REAL(KIND=JPRB) :: zhook_handle
300 IF (lhook) CALL dr_hook(
'MODE_CONV_DOE:CHTC_UP_DOE',0,zhook_handle)
306 pchtc = 9.482 * (pts - pta)**(1./3.) / (7.283 - 1)
308 pchtc = 1.810 * (pta - pts)**(1./3.) / (1.382 + 1)
312 IF (lhook) CALL dr_hook(
'MODE_CONV_DOE:CHTC_UP_DOE',1,zhook_handle)
360 REAL,
DIMENSION(:),
INTENT(IN) :: pts
361 REAL,
DIMENSION(:),
INTENT(IN) :: pta
362 REAL,
DIMENSION(SIZE(PTS)) :: pchtc
364 REAL(KIND=JPRB) :: zhook_handle
366 IF (lhook) CALL dr_hook(
'MODE_CONV_DOE:CHTC_DOWN_DOE',0,zhook_handle)
372 pchtc = 9.482 * (pta - pts)**(1./3.) / (7.283 - 1)
374 pchtc = 1.810 * (pts - pta)**(1./3.) / (1.382 + 1)
378 IF (lhook) CALL dr_hook(
'MODE_CONV_DOE:CHTC_DOWN_DOE',1,zhook_handle)
428 REAL,
INTENT(IN) :: pchtcn
429 REAL,
INTENT(IN) :: pvmod
434 REAL(KIND=JPRB) :: zhook_handle
437 IF (lhook) CALL dr_hook(
'MODE_CONV_DOE:CHTC_SMOOTH_LEE_DOE',0,zhook_handle)
448 pchtc = sqrt(pchtcn**2+(zalee*pvmod**zblee)**2)
451 IF (lhook) CALL dr_hook(
'MODE_CONV_DOE:CHTC_SMOOTH_LEE_DOE',1,zhook_handle)
501 REAL,
DIMENSION(:),
INTENT(IN) :: pchtcn
502 REAL,
DIMENSION(:),
INTENT(IN) :: pvmod
503 REAL,
DIMENSION(SIZE(PCHTCN)) :: pchtc
507 REAL(KIND=JPRB) :: zhook_handle
510 IF (lhook) CALL dr_hook(
'MODE_CONV_DOE:CHTC_SMOOTH_LEE_DOE',0,zhook_handle)
521 pchtc = sqrt(pchtcn**2+(zalee*pvmod**zblee)**2)
524 IF (lhook) CALL dr_hook(
'MODE_CONV_DOE:CHTC_SMOOTH_LEE_DOE',1,zhook_handle)
573 REAL,
INTENT(IN) :: pchtcn
574 REAL,
INTENT(IN) :: pvmod
579 REAL(KIND=JPRB) :: zhook_handle
580 REAL :: zawind, zbwind
582 IF (lhook) CALL dr_hook(
'MODE_CONV_DOE:CHTC_SMOOTH_WIND_DOE',0,zhook_handle)
593 pchtc = sqrt(pchtcn**2+(zawind*pvmod**zbwind)**2)
596 IF (lhook) CALL dr_hook(
'MODE_CONV_DOE:CHTC_SMOOTH_WIND_DOE',1,zhook_handle)
646 REAL,
DIMENSION(:),
INTENT(IN) :: pchtcn
647 REAL,
DIMENSION(:),
INTENT(IN) :: pvmod
648 REAL,
DIMENSION(SIZE(PCHTCN)) :: pchtc
652 REAL(KIND=JPRB) :: zhook_handle
653 REAL :: zawind, zbwind
655 IF (lhook) CALL dr_hook(
'MODE_CONV_DOE:CHTC_SMOOTH_WIND_DOE',0,zhook_handle)
666 pchtc = sqrt(pchtcn**2+(zawind*pvmod**zbwind)**2)
669 IF (lhook) CALL dr_hook(
'MODE_CONV_DOE:CHTC_SMOOTH_WIND_DOE',1,zhook_handle)
717 REAL,
INTENT(IN) :: pchtcn
718 REAL,
INTENT(IN) :: pchtcs
719 REAL,
INTENT(IN) :: prough
724 REAL(KIND=JPRB) :: zhook_handle
726 IF (lhook) CALL dr_hook(
'MODE_CONV_DOE:CHTC_ROUGH_DOE',0,zhook_handle)
731 pchtc = pchtcn + prough * (pchtcs - pchtcn)
734 IF (lhook) CALL dr_hook(
'MODE_CONV_DOE:CHTC_ROUGH_DOE',1,zhook_handle)
782 REAL,
DIMENSION(:),
INTENT(IN) :: pchtcn
783 REAL,
DIMENSION(:),
INTENT(IN) :: pchtcs
784 REAL,
DIMENSION(:),
INTENT(IN) :: prough
785 REAL,
DIMENSION(SIZE(PCHTCN)) :: pchtc
789 REAL(KIND=JPRB) :: zhook_handle
791 IF (lhook) CALL dr_hook(
'MODE_CONV_DOE:CHTC_ROUGH_DOE',0,zhook_handle)
796 pchtc = pchtcn + prough * (pchtcs - pchtcn)
799 IF (lhook) CALL dr_hook(
'MODE_CONV_DOE:CHTC_ROUGH_DOE',1,zhook_handle)
real function chtc_vert_doe_0d(PTS, PTA)
real function, dimension(size(pts)) chtc_down_doe(PTS, PTA)
real function, dimension(size(pchtcn)) chtc_smooth_wind_doe_1d(PCHTCN, PVMOD)
real function, dimension(size(pts)) chtc_up_doe_1d(PTS, PTA)
real function, dimension(size(pts)) chtc_vert_doe_1d(PTS, PTA)
real function chtc_smooth_lee_doe_0d(PCHTCN, PVMOD)
real function chtc_up_doe_0d(PTS, PTA)
real function, dimension(size(pchtcn)) chtc_smooth_lee_doe_1d(PCHTCN, PVMOD)
real function, dimension(size(pchtcn)) chtc_rough_doe_1d(PCHTCN, PCHTCS, PROUGH)
real function chtc_smooth_wind_doe_0d(PCHTCN, PVMOD)
real function chtc_rough_doe_0d(PCHTCN, PCHTCS, PROUGH)