39 USE yomhook
,ONLY : lhook, dr_hook
40 USE parkind1
,ONLY : jprb
49 INTEGER,
INTENT(IN) :: kdim
57 REAL,
DIMENSION(:,:),
ALLOCATABLE :: zzf
58 REAL(KIND=JPRB) :: zhook_handle
65 IF (lhook) CALL dr_hook(
'SET_SSO_LEVELS',0,zhook_handle)
72 ALLOCATE(zzf(kdim,sscp%NLVL))
80 ALLOCATE(sscp%XZ(kdim,sscp%NLVL))
81 DO jlayer=1,sscp%NLVL-1
82 sscp%XZ(:,jlayer) = 0.5 * (zzf(:,jlayer)+zzf(:,jlayer+1))
84 sscp%XZ(:,sscp%NLVL) = 1.5 * zzf(:,sscp%NLVL) - 0.5 * zzf(:,sscp%NLVL-1)
91 ALLOCATE(sscp%XU(kdim,sscp%NLVL))
97 ALLOCATE(sscp%XTKE(kdim,sscp%NLVL))
98 sscp%XTKE(:,:) = xundef
100 IF (lhook) CALL dr_hook(
'SET_SSO_LEVELS',1,zhook_handle)
subroutine set_sso_levels(SSCP, KDIM)