36 USE yomhook
,ONLY : lhook, dr_hook
37 USE parkind1
,ONLY : jprb
44 LOGICAL :: LWATER_PROFILE
48 REAL,
POINTER,
DIMENSION(:) :: XZWAT_PROFILE
49 REAL,
POINTER,
DIMENSION(:) :: XZW_PROFILE
50 REAL,
POINTER,
DIMENSION(:,:) :: XTW_PROFILE
69 REAL(KIND=JPRB) :: zhook_handle
70 IF (lhook) CALL dr_hook(
"MODD_DIAG_MISC_FLAKE_N:DIAG_MISC_FLAKE_INIT",0,zhook_handle)
71 nullify(ydiag_misc_flake%XZWAT_PROFILE)
72 nullify(ydiag_misc_flake%XZW_PROFILE)
73 nullify(ydiag_misc_flake%XTW_PROFILE)
74 ydiag_misc_flake%LWATER_PROFILE=.false.
75 IF (lhook) CALL dr_hook(
"MODD_DIAG_MISC_FLAKE_N:DIAG_MISC_FLAKE_INIT",1,zhook_handle)
subroutine diag_misc_flake_init(YDIAG_MISC_FLAKE)