58 USE yomhook
,ONLY : lhook, dr_hook
59 USE parkind1
,ONLY : jprb
61 USE modi_writesurf_pgd_teb_par_n
62 USE modi_writesurf_pgd_teb_veg_n
63 USE modi_writesurf_pgd_teb_greenroof_n
77 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
83 CHARACTER(LEN=12) :: yrecfm
84 CHARACTER(LEN=100):: ycomment
86 REAL(KIND=JPRB) :: zhook_handle
89 IF (lhook) CALL dr_hook(
'WRITESURF_PGD_TEB_N',0,zhook_handle)
100 hprogram,yrecfm,tm%TOP%NTEB_PATCH,iresp,hcomment=ycomment)
108 hprogram,yrecfm,tm%TOP%NROOF_LAYER,iresp,hcomment=ycomment)
115 hprogram,yrecfm,tm%TOP%NROAD_LAYER,iresp,hcomment=ycomment)
122 hprogram,yrecfm,tm%TOP%NWALL_LAYER,iresp,hcomment=ycomment)
129 hprogram,yrecfm,tm%TOP%LECOCLIMAP,iresp,hcomment=ycomment)
137 hprogram,yrecfm,tm%TOP%CBEM,iresp,hcomment=ycomment)
139 IF (tm%TOP%CBEM==
'BEM')
THEN
143 hprogram,yrecfm,tm%BOP%CCOOL_COIL,iresp,hcomment=ycomment)
148 hprogram,yrecfm,tm%BOP%CHEAT_COIL,iresp,hcomment=ycomment)
153 hprogram,yrecfm,tm%BOP%LAUTOSIZE,iresp,hcomment=ycomment)
161 hprogram,yrecfm,tm%TOP%CBLD_ATYPE,iresp,hcomment=ycomment)
167 IF (tm%TOP%CBEM==
"BEM")
THEN
171 hprogram,yrecfm,tm%BOP%NFLOOR_LAYER,iresp,hcomment=ycomment)
180 hprogram,yrecfm,tm%TOP%LSOLAR_PANEL,iresp,hcomment=ycomment)
186 IF (tm%TOP%LGARDEN)
THEN
193 hprogram,yrecfm,tm%TOP%LGREENROOF,iresp,hcomment=ycomment)
195 yrecfm=
'LURBAN_HYDRO'
198 hprogram,yrecfm,tm%TOP%LHYDRO,iresp,hcomment=ycomment)
207 hprogram,yrecfm,gdm%TVG%CPEDOTF,iresp,hcomment=ycomment)
214 hprogram,yrecfm,gdm%TVG%CPHOTO,iresp,hcomment=ycomment)
221 hprogram,yrecfm,gdm%TVG%LTR_ML,iresp,hcomment=ycomment)
226 gdm%DTGD, gdm%TGDO, gdm%TGDP, gdm%TVG, &
232 grm%TGRO, grm%TGRP, &
245 ycomment=
'(LOGICAL LIST)'
247 hprogram,yrecfm,tm%TOP%LCOVER(:),iresp,hcomment=ycomment,hdir=
'-')
249 ycomment=
'COVER FIELDS'
251 hprogram,
'COVER',tm%TOP%XCOVER(:,:),tm%TOP%LCOVER,iresp,hcomment=ycomment)
258 hprogram,yrecfm,tm%TOP%XZS(:),iresp,hcomment=ycomment)
263 hprogram,tm%TG%CGRID,tm%TG%XGRID_PAR,tm%TG%XLAT,tm%TG%XLON,tm%TG%XMESH_SIZE,iresp)
267 gdm%TGDP, grm%TGRO, gdm%TIR, tm%TOP, &
270 IF (lhook) CALL dr_hook(
'WRITESURF_PGD_TEB_N',1,zhook_handle)
subroutine writesurf_pgd_teb_veg_n(DGU, U, DTGD, TGDO, TGDP, TVG, HPROGRAM)
subroutine write_grid(DGU, U, HPROGRAM, HGRID, PGRID_PAR, PLAT, PLON, PMESH_SIZE, KRESP, PDIR, HDIR)
subroutine writesurf_pgd_teb_n(DGU, U, TM, GDM, GRM, HPROGRAM)
subroutine writesurf_pgd_teb_par_n(BDD, DTB, DTGD, DTGR, DTT, DGU, U, TGDO, TGDP, TGRO, TIR, TOP, HPROGRAM)
subroutine writesurf_pgd_teb_greenroof_n(DGU, U, TGRO, TGRP, HPROGRAM)
subroutine, public write_surf_cov(DGU, U, HPROGRAM, HREC, PFIELD, OFLAG, KRESP, HCOMMENT, HDIR)