7 hprogram,kversion,kbugfix)
60 USE modi_read_pgd_teb_garden_par_n
63 USE yomhook
,ONLY : lhook, dr_hook
64 USE parkind1
,ONLY : jprb
66 USE modi_get_type_dim_n
84 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
85 INTEGER,
INTENT(IN) :: kversion
86 INTEGER,
INTENT(IN) :: kbugfix
93 CHARACTER(LEN=12) :: yrecfm
96 REAL(KIND=JPRB) :: zhook_handle
102 IF (lhook) CALL dr_hook(
'READ_PGD_TEB_GARDEN_N',0,zhook_handle)
111 ALLOCATE(tgdp%XCLAY(tg%NDIM,tgdo%NGROUND_LAYER))
113 IF (kversion>7 .OR. kversion==7 .AND. kbugfix>=3) yrecfm=
'GD_CLAY'
115 hprogram,yrecfm,tgdp%XCLAY(:,1),iresp)
116 DO jlayer=2,tgdo%NGROUND_LAYER
117 tgdp%XCLAY(:,jlayer)=tgdp%XCLAY(:,1)
122 ALLOCATE(tgdp%XSAND(tg%NDIM,tgdo%NGROUND_LAYER))
124 IF (kversion>7 .OR. kversion==7 .AND. kbugfix>=3) yrecfm=
'GD_SAND'
126 hprogram,yrecfm,tgdp%XSAND(:,1),iresp)
127 DO jlayer=2,tgdo%NGROUND_LAYER
128 tgdp%XSAND(:,jlayer)=tgdp%XSAND(:,1)
133 ALLOCATE(tgdp%XRUNOFFB(tg%NDIM))
135 IF (kversion>7 .OR. kversion==7 .AND. kbugfix>=3) yrecfm=
'GD_RUNOFFB'
137 hprogram,yrecfm,tgdp%XRUNOFFB,iresp)
141 ALLOCATE(tgdp%XWDRAIN(tg%NDIM))
142 IF (kversion<=3)
THEN
146 IF (kversion>7 .OR. kversion==7 .AND. kbugfix>=3) yrecfm=
'GD_WDRAIN'
148 hprogram,yrecfm,tgdp%XWDRAIN,iresp)
155 IF (cht%LCH_BIO_FLUX)
THEN
156 ALLOCATE(gbgd%XISOPOT(tg%NDIM))
159 hprogram,yrecfm,gbgd%XISOPOT,iresp)
161 ALLOCATE(gbgd%XMONOPOT(tg%NDIM))
164 hprogram,yrecfm,gbgd%XMONOPOT,iresp)
166 ALLOCATE(gbgd%XISOPOT (0))
167 ALLOCATE(gbgd%XMONOPOT(0))
175 IF (kversion>=7)
THEN
178 hprogram,yrecfm,tgdo%LPAR_GARDEN,iresp)
179 ELSEIF (.NOT.top%LECOCLIMAP)
THEN
180 tgdo%LPAR_GARDEN = .true.
182 tgdo%LPAR_GARDEN = .false.
185 IF (tgdo%LPAR_GARDEN) CALL read_pgd_teb_garden_par_n(&
186 dtgd, tgdo, tgdp, tg, &
188 IF (lhook) CALL dr_hook(
'READ_PGD_TEB_GARDEN_N',1,zhook_handle)
subroutine get_type_dim_n(DTCO, U, HTYPE, KDIM)
subroutine read_pgd_teb_garden_n(CHT, DTCO, DTGD, GBGD, U, TGDO, TGDP, TG, TOP, HPROGRAM, KVERSION, KBUGFIX)