35 USE modd_prep, ONLY : xzs_ls, xt_clim_grad
39 USE yomhook
,ONLY : lhook, dr_hook
40 USE parkind1
,ONLY : jprb
52 REAL,
DIMENSION(:),
ALLOCATABLE :: zts_ls
53 REAL(KIND=JPRB) :: zhook_handle
59 IF (lhook) CALL dr_hook(
'PREP_VER_WATFLUX',0,zhook_handle)
60 ALLOCATE(zts_ls(
SIZE(w%XTS)))
63 w%XTS = zts_ls + xt_clim_grad * (w%XZS - xzs_ls)
72 WHERE (zts_ls < xtt .AND. w%XTS < xtt + 4.) w%XTS = min(w%XTS,xtt)
81 WHERE (zts_ls > xtt .AND. w%XTS > xtt - 20.) w%XTS = max(w%XTS,xtt+4.)
88 IF (lhook) CALL dr_hook(
'PREP_VER_WATFLUX',1,zhook_handle)
subroutine prep_ver_watflux(W)