33 USE yomhook
,ONLY : lhook, dr_hook
34 USE parkind1
,ONLY : jprb
41 REAL,
DIMENSION(:),
INTENT(IN) :: pwind
42 REAL,
DIMENSION(:),
INTENT(IN) :: puref
44 REAL,
DIMENSION(SIZE(PWIND)) :: pwind_new
45 REAL(KIND=JPRB) :: zhook_handle
55 IF (lhook) CALL dr_hook(
'WIND_THRESHOLD',0,zhook_handle)
56 IF (.NOT.laldthres)
THEN
59 pwind_new = max(pwind , 0.1 * min(10.,puref) )
62 pwind_new = max( xvmodmin, sqrt( pwind**2 + (xcismin*puref)**2 ) )
64 IF (lhook) CALL dr_hook(
'WIND_THRESHOLD',1,zhook_handle)
real function, dimension(size(pwind)) wind_threshold(PWIND, PUREF)