55 USE yomhook
,ONLY : lhook, dr_hook
56 USE parkind1
,ONLY : jprb
70 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
76 CHARACTER(LEN=12) :: yrecfm
77 CHARACTER(LEN=100):: ycomment
80 REAL,
DIMENSION(:),
ALLOCATABLE :: zwork
81 REAL(KIND=JPRB) :: zhook_handle
85 IF (lhook) CALL dr_hook(
'WRITESURF_PGD_TEB_IRRIG_n',0,zhook_handle)
89 ycomment=
'FLAG FOR SPECIFIED GARDEN IRRIGATION PARAMETERS'
91 hprogram,yrecfm,tir%LPAR_GD_IRRIG,iresp,hcomment=ycomment)
94 IF (tir%LPAR_GD_IRRIG)
THEN
97 ycomment=
'Start Month for Gardens Irrigation'
99 hprogram,yrecfm,tir%XGD_START_MONTH(:),iresp,hcomment=ycomment)
102 ycomment=
'End Month for Gardens Irrigation'
104 hprogram,yrecfm,tir%XGD_END_MONTH (:),iresp,hcomment=ycomment)
107 ycomment=
'Start Hour for Gardens Irrigation'
109 hprogram,yrecfm,tir%XGD_START_HOUR (:),iresp,hcomment=ycomment)
112 ycomment=
'End Hour for Gardens Irrigation'
114 hprogram,yrecfm,tir%XGD_END_HOUR (:),iresp,hcomment=ycomment)
117 ycomment=
'24h mean Irrigation rate for Gardens Irrigation'
119 hprogram,yrecfm,tir%XGD_24H_IRRIG (:),iresp,hcomment=ycomment)
124 yrecfm=
'L_PAR_GR_IRR'
125 ycomment=
'FLAG FOR SPECIFIED GREENROOFS IRRIGATION PARAMETERS'
127 hprogram,yrecfm,tir%LPAR_GR_IRRIG,iresp,hcomment=ycomment)
130 IF (tir%LPAR_GR_IRRIG)
THEN
133 ycomment=
'Start Month for Greenroofs Irrigation'
135 hprogram,yrecfm,tir%XGR_START_MONTH(:),iresp,hcomment=ycomment)
138 ycomment=
'End Month for Greenroofs Irrigation'
140 hprogram,yrecfm,tir%XGR_END_MONTH (:),iresp,hcomment=ycomment)
143 ycomment=
'Start Hour for Greenroofs Irrigation'
145 hprogram,yrecfm,tir%XGR_START_HOUR (:),iresp,hcomment=ycomment)
148 ycomment=
'End Hour for Greenroofs Irrigation'
150 hprogram,yrecfm,tir%XGR_END_HOUR (:),iresp,hcomment=ycomment)
153 ycomment=
'24h mean Irrigation rate for Greenroofs Irrigation'
155 hprogram,yrecfm,tir%XGR_24H_IRRIG (:),iresp,hcomment=ycomment)
160 yrecfm=
'L_PAR_RD_IRR'
161 ycomment=
'FLAG FOR SPECIFIED ROAD IRRIGATION PARAMETERS'
163 hprogram,yrecfm,tir%LPAR_RD_IRRIG,iresp,hcomment=ycomment)
166 IF (tir%LPAR_RD_IRRIG)
THEN
169 ycomment=
'Start Month for Roads Irrigation'
171 hprogram,yrecfm,tir%XRD_START_MONTH(:),iresp,hcomment=ycomment)
174 ycomment=
'End Month for Roads Irrigation'
176 hprogram,yrecfm,tir%XRD_END_MONTH (:),iresp,hcomment=ycomment)
179 ycomment=
'Start Hour for Roads Irrigation'
181 hprogram,yrecfm,tir%XRD_START_HOUR (:),iresp,hcomment=ycomment)
184 ycomment=
'End Hour for Roads Irrigation'
186 hprogram,yrecfm,tir%XRD_END_HOUR (:),iresp,hcomment=ycomment)
189 ycomment=
'24h mean Irrigation rate for Roads Irrigation'
191 hprogram,yrecfm,tir%XRD_24H_IRRIG (:),iresp,hcomment=ycomment)
195 IF (lhook) CALL dr_hook(
'WRITESURF_PGD_TEB_IRRIG_n',1,zhook_handle)
subroutine writesurf_pgd_teb_irrig_n(DGU, U, TIR, HPROGRAM)