35 USE yomhook
,ONLY : lhook, dr_hook
36 USE parkind1
,ONLY : jprb
43 LOGICAL :: LDIAG_OCEAN
47 REAL,
POINTER,
DIMENSION(:) :: XTOCMOY
48 REAL,
POINTER,
DIMENSION(:) :: XSOCMOY
49 REAL,
POINTER,
DIMENSION(:) :: XUOCMOY
50 REAL,
POINTER,
DIMENSION(:) :: XVOCMOY
51 REAL,
POINTER,
DIMENSION(:) :: XDOCMOY
69 REAL(KIND=JPRB) :: zhook_handle
70 IF (lhook) CALL dr_hook(
"MODD_DIAG_OCEAN_N:DIAG_OCEAN_INIT",0,zhook_handle)
71 nullify(ydiag_ocean%XTOCMOY)
72 nullify(ydiag_ocean%XSOCMOY)
73 nullify(ydiag_ocean%XUOCMOY)
74 nullify(ydiag_ocean%XVOCMOY)
75 nullify(ydiag_ocean%XDOCMOY)
76 ydiag_ocean%LDIAG_OCEAN=.false.
77 IF (lhook) CALL dr_hook(
"MODD_DIAG_OCEAN_N:DIAG_OCEAN_INIT",1,zhook_handle)
subroutine diag_ocean_init(YDIAG_OCEAN)