39 USE modd_prep, ONLY : xzs_ls, xt_clim_grad
41 USE yomhook
,ONLY : lhook, dr_hook
42 USE parkind1
,ONLY : jprb
51 TYPE(flake_t),
INTENT(INOUT) :: f
53 REAL,
DIMENSION(:),
ALLOCATABLE :: zts_ls
54 REAL(KIND=JPRB) :: zhook_handle
57 IF (lhook) CALL dr_hook(
'PREP_VER_FLAKE',0,zhook_handle)
60 IF((abs(maxval(f%XZS)) < 0.001).AND.(abs(minval(f%XZS))< 0.001)) &
61 CALL dr_hook(
'PREP_VER_FLAKE',1,zhook_handle)
62 IF((abs(maxval(f%XZS)) < 0.001).AND.(abs(minval(f%XZS))< 0.001))
RETURN
66 ALLOCATE(zts_ls(
SIZE(f%XTS)))
70 f%XTS = zts_ls + xt_clim_grad * (f%XZS - xzs_ls)
74 IF (lhook) CALL dr_hook(
'PREP_VER_FLAKE',1,zhook_handle)
subroutine prep_ver_flake(F)