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_SEAFLUX_SBL_N:SEAFLUX_SBL_INIT",0,zhook_handle)
70 nullify(yseaflux_sbl%XZ)
71 nullify(yseaflux_sbl%XU)
72 nullify(yseaflux_sbl%XT)
73 nullify(yseaflux_sbl%XQ)
74 nullify(yseaflux_sbl%XTKE)
75 nullify(yseaflux_sbl%XLMO)
76 nullify(yseaflux_sbl%XP)
77 nullify(yseaflux_sbl%XDZ)
78 nullify(yseaflux_sbl%XZF)
79 nullify(yseaflux_sbl%XDZF)
81 IF (lhook) CALL dr_hook(
"MODD_SEAFLUX_SBL_N:SEAFLUX_SBL_INIT",1,zhook_handle)
subroutine seaflux_sbl_init(YSEAFLUX_SBL)