43 USE yomhook
,ONLY : lhook, dr_hook
44 USE parkind1
,ONLY : jprb
51 CHARACTER(LEN=6),
INTENT(OUT) :: hch_dry_dep
52 REAL(KIND=JPRB) :: zhook_handle
60 IF (lhook) CALL dr_hook(
'DEFAULT_CH_DEP',0,zhook_handle)
61 hch_dry_dep =
"WES89 "
62 IF (lhook) CALL dr_hook(
'DEFAULT_CH_DEP',1,zhook_handle)
subroutine default_ch_dep(HCH_DRY_DEP)