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
59 REAL(KIND=JPRB) :: zhook_handle
60 IF (lhook) CALL dr_hook(
"MODD_CH_WATFLUX_N:CH_WATFLUX_INIT",0,zhook_handle)
61 nullify(ych_watflux%XDEP)
62 nullify(ych_watflux%CCH_NAMES)
63 nullify(ych_watflux%CAER_NAMES)
64 nullify(ych_watflux%CDSTNAMES)
65 nullify(ych_watflux%CSLTNAMES)
66 ych_watflux%CCH_DRY_DEP=
' '
68 IF (lhook) CALL dr_hook(
"MODD_CH_WATFLUX_N:CH_WATFLUX_INIT",1,zhook_handle)
subroutine ch_watflux_init(YCH_WATFLUX)