35 USE yomhook
,ONLY : lhook, dr_hook
36 USE parkind1
,ONLY : jprb
42 CHARACTER(LEN=4) :: CCH_EMIS
48 CHARACTER(LEN=6),
DIMENSION(:),
POINTER :: CCH_NAMES
49 CHARACTER(LEN=6),
DIMENSION(:),
POINTER :: CAER_NAMES
51 CHARACTER(LEN=28) :: CCHEM_SURF_FILE
54 REAL,
DIMENSION(:),
POINTER :: XCONVERSION
56 LOGICAL :: LCH_SURF_EMIS
73 TYPE(ch_surf_t),
INTENT(INOUT) :: ych_surf
74 REAL(KIND=JPRB) :: zhook_handle
75 IF (lhook) CALL dr_hook(
"MODD_CH_SURF_N:CH_SURF_INIT",0,zhook_handle)
76 nullify(ych_surf%CCH_NAMES)
77 nullify(ych_surf%CAER_NAMES)
78 nullify(ych_surf%XCONVERSION)
80 ych_surf%CCHEM_SURF_FILE=
' '
81 ych_surf%LCH_SURF_EMIS=.false.
82 ych_surf%LCH_EMIS=.false.
83 IF (lhook) CALL dr_hook(
"MODD_CH_SURF_N:CH_SURF_INIT",1,zhook_handle)
subroutine ch_surf_init(YCH_SURF)