35 USE yomhook
,ONLY : lhook, dr_hook
36 USE parkind1
,ONLY : jprb
43 LOGICAL :: LDIAG_SEAICE
47 REAL,
POINTER,
DIMENSION(:) :: XSIT
48 REAL,
POINTER,
DIMENSION(:) :: XSND
49 REAL,
POINTER,
DIMENSION(:) :: XMLT
67 REAL(KIND=JPRB) :: zhook_handle
68 IF (lhook) CALL dr_hook(
"MODD_DIAG_SEAICE_N:DIAG_SEAICE_INIT",0,zhook_handle)
69 nullify(ydiag_seaice%XSIT)
70 nullify(ydiag_seaice%XSND)
71 nullify(ydiag_seaice%XMLT)
72 ydiag_seaice%LDIAG_SEAICE=.false.
73 IF (lhook) CALL dr_hook(
"MODD_DIAG_SEAICE_N:DIAG_SEAICE_INIT",1,zhook_handle)
subroutine diag_seaice_init(YDIAG_SEAICE)