Subroutine close_output_randomruns
208 :
209 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
210 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
211 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
212 :
213 : subroutine close_output_randomruns ()
214 : use vom_sce_mod
215 : use vom_vegwat_mod
216 :
217 : implicit none
218 :
219 : if( vd_d_out .eqv. .TRUE.) then
220 : close(kfile_vd_d)
221 : end if
222 : if( esoil_out .eqv. .TRUE.) then
223 : close(kfile_esoil)
224 : end if
225 : if( jmax25t_out .eqv. .TRUE.) then
226 : close(kfile_jmax25t)
227 : end if
228 : if( jmax25g_out .eqv. .TRUE.) then
229 : close(kfile_jmax25g)
230 : end if
231 : if( vegcov_out .eqv. .TRUE.) then
232 : close(kfile_vegcov)
233 : end if
234 : if( resp_out .eqv. .TRUE.) then
235 : close(kfile_resp)
236 : end if
237 : if( lambdat_out .eqv. .TRUE.) then
238 : close(kfile_lambdat)
239 : end if
240 : if( lambdag_out .eqv. .TRUE.) then
241 : close(kfile_lambdag)
242 : end if
243 : if( rrt_out .eqv. .TRUE.) then
244 : close(kfile_rrt)
245 : end if
246 : if( rrg_out .eqv. .TRUE.) then
247 : close(kfile_rrg)
248 : end if
249 : if( asst_out .eqv. .TRUE.) then
250 : close(kfile_asst)
251 : end if
252 : if( assg_out .eqv. .TRUE.) then
253 : close(kfile_assg)
254 : end if
255 : if( su_av_out .eqv. .TRUE.) then
256 : close(kfile_su_av)
257 : end if
258 : if( zw_out .eqv. .TRUE.) then
259 : close(kfile_zw)
260 : end if
261 : if( wsnew_out .eqv. .TRUE.) then
262 : close(kfile_wsnew)
263 : end if
264 : if( spgfcf_out .eqv. .TRUE.) then
265 : close(kfile_spgfcf)
266 : end if
267 : if( infx_out .eqv. .TRUE.) then
268 : close(kfile_infx)
269 : end if
270 : if( etmt_out .eqv. .TRUE.) then
271 : close(kfile_etmt)
272 : end if
273 : if( etmg_out .eqv. .TRUE.) then
274 : close(kfile_etmg)
275 : end if
276 : if( su1_out .eqv. .TRUE.) then
277 : close(kfile_su1)
278 : end if
279 : if( topt_out .eqv. .TRUE.) then
280 : close(kfile_topt)
281 : end if
282 :
283 : return
284 : end subroutine close_output_randomruns