40 USE yomhook
,ONLY : lhook, dr_hook
41 USE parkind1
,ONLY : jprb
53 LOGICAL :: LPAR_GREENROOF
58 CHARACTER(LEN=3) :: CISBA_GR
59 CHARACTER(LEN=4) :: CSCOND_GR
70 INTEGER :: NLAYER_HORT_GR
71 INTEGER :: NLAYER_DUN_GR
73 REAL,
POINTER,
DIMENSION(:) :: XSOILGRID_GR
78 CHARACTER(LEN=4) :: CRUNOFF_GR
85 CHARACTER(LEN=3) :: CKSAT_GR
88 CHARACTER(LEN=3) :: CHORT_GR
99 CHARACTER(LEN=5) :: CTYP_GR
116 REAL(KIND=JPRB) :: zhook_handle
117 IF (lhook) CALL dr_hook(
"MODD_TEB_GREENROOF_N:TEB_GREENROOF_INIT",0,zhook_handle)
118 nullify(yteb_greenroof_options%XSOILGRID_GR)
119 yteb_greenroof_options%LPAR_GREENROOF=.true.
120 yteb_greenroof_options%CISBA_GR=
' '
121 yteb_greenroof_options%LTR_ML_GR=.false.
122 yteb_greenroof_options%LSOC_GR=.false.
123 yteb_greenroof_options%CRUNOFF_GR=
' '
124 yteb_greenroof_options%CSCOND_GR=
' '
125 yteb_greenroof_options%CKSAT_GR=
' '
126 yteb_greenroof_options%CHORT_GR=
' '
127 yteb_greenroof_options%CTYP_GR=
' '
128 yteb_greenroof_options%NLAYER_GR=0
129 yteb_greenroof_options%NLAYER_HORT_GR=0
130 yteb_greenroof_options%NLAYER_DUN_GR=0
131 yteb_greenroof_options%NTIME_GR=0
132 IF (lhook) CALL dr_hook(
"MODD_TEB_GREENROOF_N:TEB_GREENROOF_OPTIONS_INIT",1,zhook_handle)
subroutine teb_greenroof_options_init(YTEB_GREENROOF_OPTIONS)