42 USE yomhook
,ONLY : lhook, dr_hook
43 USE parkind1
,ONLY : jprb
51 CHARACTER(LEN=28),
INTENT(OUT) :: hchem_surf_file
52 LOGICAL,
INTENT(OUT) :: osurf_emis
53 REAL(KIND=JPRB) :: zhook_handle
59 IF (lhook) CALL dr_hook(
'DEFAULT_CH_SURF_ATM',0,zhook_handle)
62 IF (lhook) CALL dr_hook(
'DEFAULT_CH_SURF_ATM',1,zhook_handle)
subroutine default_ch_surf_atm(HCHEM_SURF_FILE, OSURF_EMIS)