39 USE yomhook
,ONLY : lhook, dr_hook
40 USE parkind1
,ONLY : jprb
55 REAL,
DIMENSION(:,:),
ALLOCATABLE :: zzf
56 REAL(KIND=JPRB) :: zhook_handle
65 IF (lhook) CALL dr_hook(
'PREP_FLAKE_SBL',0,zhook_handle)
72 ALLOCATE(zzf(fg%NDIM,fsb%NLVL))
80 ALLOCATE(fsb%XZ(fg%NDIM,fsb%NLVL))
81 DO jlayer=1,fsb%NLVL-1
82 fsb%XZ(:,jlayer) = 0.5 * (zzf(:,jlayer)+zzf(:,jlayer+1))
84 fsb%XZ(:,fsb%NLVL) = 1.5 * zzf(:,fsb%NLVL) - 0.5 * zzf(:,fsb%NLVL-1)
88 IF (lhook) CALL dr_hook(
'PREP_FLAKE_SBL',1,zhook_handle)
subroutine prep_flake_sbl(FG, FSB)