7 punif_om_gr, punif_clay_gr, punif_sand_gr, punif_lai_gr,&
8 hfnam_om_gr, hfnam_clay_gr, hfnam_sand_gr, hfnam_lai_gr,&
9 hftyp_om_gr, hftyp_clay_gr, hftyp_sand_gr, hftyp_lai_gr )
49 USE modi_open_namelist
50 USE modi_close_namelist
56 USE yomhook
,ONLY : lhook, dr_hook
57 USE parkind1
,ONLY : jprb
64 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
65 INTEGER,
INTENT(OUT) :: ktime_gr
66 INTEGER,
INTENT(OUT) :: klayer_gr
67 CHARACTER(LEN=5),
INTENT(OUT) :: htyp_gr
68 REAL,
DIMENSION(:),
INTENT(OUT) :: punif_om_gr
69 REAL,
DIMENSION(:),
INTENT(OUT) :: punif_clay_gr
70 REAL,
DIMENSION(:),
INTENT(OUT) :: punif_sand_gr
71 REAL,
DIMENSION(:),
INTENT(OUT) :: punif_lai_gr
72 CHARACTER(LEN=28),
DIMENSION(:),
INTENT(OUT) :: hfnam_om_gr
73 CHARACTER(LEN=28),
DIMENSION(:),
INTENT(OUT) :: hfnam_clay_gr
74 CHARACTER(LEN=28),
DIMENSION(:),
INTENT(OUT) :: hfnam_sand_gr
75 CHARACTER(LEN=28),
DIMENSION(:),
INTENT(OUT) :: hfnam_lai_gr
76 CHARACTER(LEN=6),
DIMENSION(:),
INTENT(OUT) :: hftyp_om_gr
77 CHARACTER(LEN=6),
DIMENSION(:),
INTENT(OUT) :: hftyp_clay_gr
78 CHARACTER(LEN=6),
DIMENSION(:),
INTENT(OUT) :: hftyp_sand_gr
79 CHARACTER(LEN=6),
DIMENSION(:),
INTENT(OUT) :: hftyp_lai_gr
93 CHARACTER(LEN=5) :: ctyp_gr
97 REAL,
DIMENSION(NLAYER_GR_MAX) :: xunif_om_gr
98 REAL,
DIMENSION(NLAYER_GR_MAX) :: xunif_clay_gr
99 REAL,
DIMENSION(NLAYER_GR_MAX) :: xunif_sand_gr
100 REAL,
DIMENSION(NTIME_GR_MAX) :: xunif_lai_gr
104 CHARACTER(LEN=28),
DIMENSION(NLAYER_GR_MAX) :: cfnam_om_gr
105 CHARACTER(LEN=28),
DIMENSION(NLAYER_GR_MAX) :: cfnam_clay_gr
106 CHARACTER(LEN=28),
DIMENSION(NLAYER_GR_MAX) :: cfnam_sand_gr
107 CHARACTER(LEN=28),
DIMENSION(NTIME_GR_MAX) :: cfnam_lai_gr
111 CHARACTER(LEN=6 ),
DIMENSION(NLAYER_GR_MAX) :: cftyp_om_gr
112 CHARACTER(LEN=6 ),
DIMENSION(NLAYER_GR_MAX) :: cftyp_clay_gr
113 CHARACTER(LEN=6 ),
DIMENSION(NLAYER_GR_MAX) :: cftyp_sand_gr
114 CHARACTER(LEN=6 ),
DIMENSION(NTIME_GR_MAX) :: cftyp_lai_gr
116 REAL(KIND=JPRB) :: zhook_handle
118 namelist/nam_data_teb_greenroof/ ntime_gr,nlayer_gr, &
120 xunif_om_gr, xunif_clay_gr, xunif_sand_gr, xunif_lai_gr, &
121 cfnam_om_gr, cfnam_clay_gr, cfnam_sand_gr, cfnam_lai_gr, &
122 cftyp_om_gr, cftyp_clay_gr, cftyp_sand_gr, cftyp_lai_gr
129 IF (lhook) CALL dr_hook(
'PGD_TEB_GREENROOF_PAR',0,zhook_handle)
136 xunif_clay_gr = xundef
137 xunif_sand_gr = xundef
138 xunif_lai_gr = xundef
157 CALL
posnam(ilunam,
'NAM_DATA_TEB_GREENROOF',gfound,iluout)
158 IF (gfound)
READ(unit=ilunam,nml=nam_data_teb_greenroof)
163 IF (ntime_gr/=1 .AND. ntime_gr/=12)
THEN
164 CALL
abor1_sfx(
'NTIME_GR must be either equal to 1 (uniform LAI) or 12 (monthly LAI)')
169 klayer_gr = nlayer_gr
171 punif_om_gr = xunif_om_gr
172 punif_clay_gr = xunif_clay_gr
173 punif_sand_gr = xunif_sand_gr
174 punif_lai_gr = xunif_lai_gr
175 hfnam_om_gr = cfnam_om_gr
176 hfnam_clay_gr = cfnam_clay_gr
177 hfnam_sand_gr = cfnam_sand_gr
178 hfnam_lai_gr = cfnam_lai_gr
179 hftyp_om_gr = cftyp_om_gr
180 hftyp_clay_gr = cftyp_clay_gr
181 hftyp_sand_gr = cftyp_sand_gr
182 hftyp_lai_gr = cftyp_lai_gr
184 IF (lhook) CALL dr_hook(
'READ_NAM_PGD_TEB_GREENROOF',1,zhook_handle)
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 abor1_sfx(YTEXT)
subroutine close_namelist(HPROGRAM, KLUNAM)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine open_namelist(HPROGRAM, KLUNAM, HFILE)