35 USE yomhook
,ONLY : lhook, dr_hook
36 USE parkind1
,ONLY : jprb
42 CHARACTER(LEN=28) :: CCHEM_SURF_FILE
43 CHARACTER(LEN=6) :: CCH_DRY_DEP
44 REAL,
DIMENSION(:,:),
POINTER :: XDEP
46 REAL,
DIMENSION(:,:),
POINTER :: XSOILRC_SO2
47 REAL,
DIMENSION(:,:),
POINTER :: XSOILRC_O3
48 LOGICAL :: LCH_BIO_FLUX
50 LOGICAL :: LCH_NO_FLUX
54 CHARACTER(LEN=6),
DIMENSION(:),
POINTER :: CCH_NAMES
56 CHARACTER(LEN=6),
DIMENSION(:),
POINTER :: CAER_NAMES
57 CHARACTER(LEN=6),
DIMENSION(:),
POINTER :: CDSTNAMES
58 CHARACTER(LEN=6),
DIMENSION(:),
POINTER :: CSLTNAMES
73 TYPE(ch_teb_t),
INTENT(INOUT) :: ych_teb
74 REAL(KIND=JPRB) :: zhook_handle
75 IF (lhook) CALL dr_hook(
"MODD_CH_TEB_N:CH_TEB_INIT",0,zhook_handle)
77 nullify(ych_teb%XSOILRC_SO2)
78 nullify(ych_teb%XSOILRC_O3)
79 nullify(ych_teb%CCH_NAMES)
80 nullify(ych_teb%CAER_NAMES)
81 nullify(ych_teb%CDSTNAMES)
82 nullify(ych_teb%CSLTNAMES)
83 ych_teb%CCHEM_SURF_FILE=
' '
84 ych_teb%CCH_DRY_DEP=
' '
85 ych_teb%LCH_BIO_FLUX=.false.
86 ych_teb%LCH_NO_FLUX=.false.
88 IF (lhook) CALL dr_hook(
"MODD_CH_TEB_N:CH_TEB_INIT",1,zhook_handle)
subroutine ch_teb_init(YCH_TEB)