35 USE yomhook
,ONLY : lhook, dr_hook
36 USE parkind1
,ONLY : jprb
43 REAL,
POINTER,
DIMENSION(:,:) :: XZ
44 REAL,
POINTER,
DIMENSION(:,:) :: XU
45 REAL,
POINTER,
DIMENSION(:,:) :: XT
46 REAL,
POINTER,
DIMENSION(:,:) :: XQ
47 REAL,
POINTER,
DIMENSION(:,:) :: XTKE
48 REAL,
POINTER,
DIMENSION(:) :: XLMO
49 REAL,
POINTER,
DIMENSION(:,:) :: XP
51 REAL,
POINTER,
DIMENSION(:,:) :: XDZ
52 REAL,
POINTER,
DIMENSION(:,:) :: XZF
53 REAL,
POINTER,
DIMENSION(:,:) :: XDZF
68 REAL(KIND=JPRB) :: zhook_handle
69 IF (lhook) CALL dr_hook(
"MODD_FLAKE_SBL_N:FLAKE_SBL_INIT",0,zhook_handle)
70 nullify(yflake_sbl%XZ)
71 nullify(yflake_sbl%XU)
72 nullify(yflake_sbl%XT)
73 nullify(yflake_sbl%XQ)
74 nullify(yflake_sbl%XTKE)
75 nullify(yflake_sbl%XLMO)
76 nullify(yflake_sbl%XP)
77 nullify(yflake_sbl%XDZ)
78 nullify(yflake_sbl%XZF)
79 nullify(yflake_sbl%XDZF)
81 IF (lhook) CALL dr_hook(
"MODD_FLAKE_SBL_N:FLAKE_SBL_INIT",1,zhook_handle)
subroutine flake_sbl_init(YFLAKE_SBL)