36 USE yomhook
,ONLY : lhook, dr_hook
37 USE parkind1
,ONLY : jprb
43 CHARACTER(LEN=6) :: CCH_DRY_DEP
44 REAL,
DIMENSION(:,:),
POINTER :: XDEP
48 CHARACTER(LEN=6),
DIMENSION(:),
POINTER :: CCH_NAMES
50 CHARACTER(LEN=6),
DIMENSION(:),
POINTER :: CDSTNAMES
51 CHARACTER(LEN=6),
DIMENSION(:),
POINTER :: CSLTNAMES
52 CHARACTER(LEN=6),
DIMENSION(:),
POINTER :: CAER_NAMES
64 REAL(KIND=JPRB) :: zhook_handle
65 IF (lhook) CALL dr_hook(
"MODD_CH_FLAKE_N:CH_FLAKE_INIT",0,zhook_handle)
66 nullify(ych_flake%XDEP)
67 nullify(ych_flake%CCH_NAMES)
68 nullify(ych_flake%CAER_NAMES)
69 nullify(ych_flake%CDSTNAMES)
70 nullify(ych_flake%CSLTNAMES)
71 ych_flake%CCH_DRY_DEP=
' '
73 IF (lhook) CALL dr_hook(
"MODD_CH_FLAKE_N:CH_FLAKE_INIT",1,zhook_handle)
subroutine ch_flake_init(YCH_FLAKE)