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_isba_t),
INTENT(INOUT) :: ych_isba
74 REAL(KIND=JPRB) :: zhook_handle
75 IF (lhook) CALL dr_hook(
"MODD_CH_ISBA_N:CH_ISBA_INIT",0,zhook_handle)
76 nullify(ych_isba%XDEP)
77 nullify(ych_isba%XSOILRC_SO2)
78 nullify(ych_isba%XSOILRC_O3)
79 nullify(ych_isba%CCH_NAMES)
80 nullify(ych_isba%CAER_NAMES)
81 nullify(ych_isba%CDSTNAMES)
82 nullify(ych_isba%CSLTNAMES)
83 ych_isba%CCHEM_SURF_FILE=
' '
84 ych_isba%CCH_DRY_DEP=
' '
85 ych_isba%LCH_BIO_FLUX=.false.
86 ych_isba%LCH_NO_FLUX=.false.
88 IF (lhook) CALL dr_hook(
"MODD_CH_ISBA_N:CH_ISBA_INIT",1,zhook_handle)
subroutine ch_isba_init(YCH_ISBA)