57 USE modi_read_pgd_teb_par_n
60 USE yomhook
,ONLY : lhook, dr_hook
61 USE parkind1
,ONLY : jprb
63 USE modi_get_type_dim_n
65 USE modi_read_lecoclimap
77 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
84 CHARACTER(LEN=12) :: yrecfm
88 REAL(KIND=JPRB) :: zhook_handle
93 IF (lhook) CALL dr_hook(
'READ_PGD_TEB_N',0,zhook_handle)
102 hprogram,
'VERSION',iversion,iresp)
104 hprogram,
'BUG',ibugfix,iresp)
108 IF (iversion<7 .OR. iversion==7 .AND. ibugfix<=2)
THEN
113 hprogram,yrecfm,tm%TOP%NTEB_PATCH,iresp)
120 hprogram,yrecfm,tm%TOP%NROAD_LAYER,iresp)
124 hprogram,yrecfm,tm%TOP%NROOF_LAYER,iresp)
128 hprogram,yrecfm,tm%TOP%NWALL_LAYER,iresp)
134 IF (iversion<7 .OR.( iversion==7 .AND. ibugfix<=2))
THEN
135 tm%TOP%CBLD_ATYPE=
'ARI'
140 hprogram,yrecfm,tm%TOP%CBLD_ATYPE,iresp)
143 hprogram,yrecfm,tm%TOP%CBEM,iresp)
146 IF (tm%TOP%CBEM==
"BEM")
THEN
149 hprogram,yrecfm,tm%BOP%NFLOOR_LAYER,iresp)
152 hprogram,yrecfm,tm%BOP%CCOOL_COIL,iresp)
155 hprogram,yrecfm,tm%BOP%CHEAT_COIL,iresp)
158 hprogram,yrecfm,tm%BOP%LAUTOSIZE,iresp)
163 IF (tm%TOP%LGARDEN)
THEN
164 IF (iversion<7 .OR.( iversion==7 .AND. ibugfix<=2))
THEN
165 tm%TOP%LGREENROOF = .false.
169 hprogram,yrecfm,tm%TOP%LGREENROOF,iresp)
174 IF (iversion<7 .OR.( iversion==7 .AND. ibugfix<=3))
THEN
175 tm%TOP%LHYDRO = .false.
177 yrecfm=
'LURBAN_HYDRO'
179 hprogram,yrecfm,tm%TOP%LHYDRO,iresp)
185 IF (iversion<7 .OR.( iversion==7 .AND. ibugfix<=3))
THEN
186 tm%TOP%LSOLAR_PANEL = .false.
190 hprogram,yrecfm,tm%TOP%LSOLAR_PANEL,iresp)
200 ALLOCATE(tm%TOP%LCOVER(jpcover))
202 hprogram,tm%TOP%LCOVER)
204 ALLOCATE(tm%TOP%XCOVER(tm%TG%NDIM,count(tm%TOP%LCOVER)))
206 hprogram,
'COVER',tm%TOP%XCOVER(:,:),tm%TOP%LCOVER,iresp)
210 ALLOCATE(tm%TOP%XZS(tm%TG%NDIM))
213 hprogram,yrecfm,tm%TOP%XZS(:),iresp)
218 ALLOCATE(tm%TG%XLAT (tm%TG%NDIM))
219 ALLOCATE(tm%TG%XLON (tm%TG%NDIM))
220 ALLOCATE(tm%TG%XMESH_SIZE(tm%TG%NDIM))
222 hprogram,tm%TG%CGRID,tm%TG%XGRID_PAR,&
223 tm%TG%XLAT,tm%TG%XLON,tm%TG%XMESH_SIZE,iresp)
232 hprogram,tm%TOP%LECOCLIMAP)
235 tm%BDD, tm%DTB, tm%DTT, tm%TG, tm%TOP, &
236 hprogram,tm%TG%NDIM,
'-')
237 IF (lhook) CALL dr_hook(
'READ_PGD_TEB_N',1,zhook_handle)
subroutine get_type_dim_n(DTCO, U, HTYPE, KDIM)
subroutine read_grid(HPROGRAM, HGRID, PGRID_PAR, PLAT, PLON, PMESH_SIZE, KRESP, PDIR)
subroutine, public read_surf_cov(HPROGRAM, HREC, PFIELD, OFLAG, KRESP, HCOMMENT, HDIR)
subroutine read_pgd_teb_n(DTCO, U, TM, HPROGRAM)
subroutine read_lcover(HPROGRAM, OCOVER)
subroutine read_pgd_teb_par_n(DTCO, U, BDD, DTB, DTT, TG, TOP, HPROGRAM, KNI, HDIRIN)
subroutine read_lecoclimap(HPROGRAM, OECOCLIMAP)