60 USE modi_read_nam_pgd_teb_greenroof
67 USE yomhook
,ONLY : lhook, dr_hook
68 USE parkind1
,ONLY : jprb
84 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
101 INTEGER,
PARAMETER :: jpground_max = 20
102 INTEGER,
PARAMETER :: jpvegtype_max = 12
107 CHARACTER(LEN=5) :: ytyp_gr
111 REAL,
DIMENSION(NLAYER_GR_MAX) :: zunif_om_gr
112 REAL,
DIMENSION(NLAYER_GR_MAX) :: zunif_clay_gr
113 REAL,
DIMENSION(NLAYER_GR_MAX) :: zunif_sand_gr
114 REAL,
DIMENSION(NTIME_GR_MAX) :: zunif_lai_gr
118 CHARACTER(LEN=28),
DIMENSION(NLAYER_GR_MAX) :: yfnam_om_gr
119 CHARACTER(LEN=28),
DIMENSION(NLAYER_GR_MAX) :: yfnam_clay_gr
120 CHARACTER(LEN=28),
DIMENSION(NLAYER_GR_MAX) :: yfnam_sand_gr
121 CHARACTER(LEN=28),
DIMENSION(NTIME_GR_MAX) :: yfnam_lai_gr
125 CHARACTER(LEN=6 ),
DIMENSION(NLAYER_GR_MAX) :: yftyp_om_gr
126 CHARACTER(LEN=6 ),
DIMENSION(NLAYER_GR_MAX) :: yftyp_clay_gr
127 CHARACTER(LEN=6 ),
DIMENSION(NLAYER_GR_MAX) :: yftyp_sand_gr
128 CHARACTER(LEN=6 ),
DIMENSION(NTIME_GR_MAX) :: yftyp_lai_gr
130 REAL(KIND=JPRB) :: zhook_handle
136 IF (lhook) CALL dr_hook(
'PGD_TEB_GREENROOF_PAR',0,zhook_handle)
143 zunif_clay_gr = xundef
144 zunif_sand_gr = xundef
145 zunif_lai_gr = xundef
163 zunif_om_gr, zunif_clay_gr, zunif_sand_gr, zunif_lai_gr, &
164 yfnam_om_gr, yfnam_clay_gr, yfnam_sand_gr, yfnam_lai_gr, &
165 yftyp_om_gr, yftyp_clay_gr, yftyp_sand_gr, yftyp_lai_gr)
167 tgro%NTIME_GR = itime_gr
168 tgro%NLAYER_GR = ilayer_gr
169 tgro%CTYP_GR = ytyp_gr
177 ALLOCATE(dtgr%XPAR_OM_GR (tg%NDIM,tgro%NLAYER_GR))
178 ALLOCATE(dtgr%XPAR_CLAY_GR (tg%NDIM,tgro%NLAYER_GR))
179 ALLOCATE(dtgr%XPAR_SAND_GR (tg%NDIM,tgro%NLAYER_GR))
180 ALLOCATE(dtgr%XPAR_LAI_GR (tg%NDIM,tgro%NTIME_GR ))
190 DO jlayer_gr=1,tgro%NLAYER_GR
192 hprogram,
'OM_GR: fraction of OM in GR layer',
'BLD',yfnam_om_gr(jlayer_gr), &
193 yftyp_om_gr(jlayer_gr), zunif_om_gr(jlayer_gr), dtgr%XPAR_OM_GR(:,jlayer_gr))
196 DO jlayer_gr=1,tgro%NLAYER_GR
198 hprogram,
'CLAY_GR: fraction of CLAY in the non-OM part of GR layer',
'BLD',yfnam_clay_gr(jlayer_gr), &
199 yftyp_clay_gr(jlayer_gr), zunif_clay_gr(jlayer_gr), dtgr%XPAR_CLAY_GR(:,jlayer_gr))
202 DO jlayer_gr=1,tgro%NLAYER_GR
204 hprogram,
'SAND_GR: fraction of SAND in the non-OM part of GR layer',
'BLD',yfnam_sand_gr(jlayer_gr), &
205 yftyp_sand_gr(jlayer_gr), zunif_sand_gr(jlayer_gr), dtgr%XPAR_SAND_GR(:,jlayer_gr))
208 DO jtime=1,tgro%NTIME_GR
210 hprogram,
'LAI_GR: LAI of green roof',
'BLD',yfnam_lai_gr(jtime), &
211 yftyp_lai_gr(jtime),zunif_lai_gr(jtime),dtgr%XPAR_LAI_GR(:,jtime))
216 IF (lhook) CALL dr_hook(
'PGD_TEB_GREENROOF_PAR',1,zhook_handle)
subroutine pgd_field(DTCO, UG, U, USS, HPROGRAM, HFIELD, HAREA, HFILE, HFILETYPE, PUNIF, PFIELD, OPRESENT)
subroutine read_nam_pgd_teb_greenroof(HPROGRAM, KTIME_GR, KLAYER_GR, HTYP_GR, PUNIF_OM_GR, PUNIF_CLAY_GR, PUNIF_SAND_GR, PUNIF_LAI_GR, HFNAM_OM_GR, HFNAM_CLAY_GR, HFNAM_SAND_GR, HFNAM_LAI_GR, HFTYP_OM_GR, HFTYP_CLAY_GR, HFTYP_SAND_GR, HFTYP_LAI_GR)
subroutine pgd_teb_greenroof_par(DTCO, DTGR, UG, U, USS, TGRO, TG, HPROGRAM)