39 USE yomhook
,ONLY : lhook, dr_hook
40 USE parkind1
,ONLY : jprb
55 REAL,
DIMENSION(:,:),
ALLOCATABLE :: zzf
56 REAL(KIND=JPRB) :: zhook_handle
60 IF (lhook) CALL dr_hook(
'PREP_TEB_CANOPY',0,zhook_handle)
71 ALLOCATE(zzf(tg%NDIM,tcp%NLVL))
79 ALLOCATE(tcp%XZ(tg%NDIM,tcp%NLVL))
80 DO jlayer=1,tcp%NLVL-1
81 tcp%XZ(:,jlayer) = 0.5 * (zzf(:,jlayer)+zzf(:,jlayer+1))
83 tcp%XZ(:,tcp%NLVL) = 1.5 * zzf(:,tcp%NLVL) - 0.5 * zzf(:,tcp%NLVL-1)
87 IF (lhook) CALL dr_hook(
'PREP_TEB_CANOPY',1,zhook_handle)
subroutine prep_teb_canopy(TCP, TG)