35 USE yomhook
,ONLY : lhook, dr_hook
36 USE parkind1
,ONLY : jprb
42 CHARACTER(LEN=6) :: CCH_DRY_DEP
43 REAL,
DIMENSION(:,:),
POINTER :: XDEP
47 CHARACTER(LEN=6),
DIMENSION(:),
POINTER :: CCH_NAMES
49 CHARACTER(LEN=6),
DIMENSION(:),
POINTER :: CDSTNAMES
50 CHARACTER(LEN=6),
DIMENSION(:),
POINTER :: CSLTNAMES
51 CHARACTER(LEN=6),
DIMENSION(:),
POINTER :: CAER_NAMES
66 REAL(KIND=JPRB) :: zhook_handle
67 IF (lhook) CALL dr_hook(
"MODD_CH_SEAFLUX_N:CH_SEAFLUX_INIT",0,zhook_handle)
68 nullify(ych_seaflux%XDEP)
69 nullify(ych_seaflux%CCH_NAMES)
70 nullify(ych_seaflux%CAER_NAMES)
71 nullify(ych_seaflux%CDSTNAMES)
72 nullify(ych_seaflux%CSLTNAMES)
73 ych_seaflux%CCH_DRY_DEP=
' '
75 IF (lhook) CALL dr_hook(
"MODD_CH_SEAFLUX_N:CH_SEAFLUX_INIT",1,zhook_handle)
subroutine ch_seaflux_init(YCH_SEAFLUX)