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