Subroutine open_output_randomruns

126 : 
127 : 
128 : 
129 : 
130 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
131 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
132 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
133 : 
134 : subroutine open_output_randomruns ()
135 :    use vom_sce_mod
136 :    use vom_vegwat_mod
137 : 
138 :       implicit none
139 : 
140 :        if( vd_d_out .eqv. .TRUE.) then
141 :          open(kfile_vd_d , FILE=trim(adjustl(i_outputpath)) // trim(adjustl(sfile_vd_d)))
142 :       end if
143 : 
144 :       if( esoil_out .eqv. .TRUE.) then
145 :          open(kfile_esoil, FILE=trim(adjustl(i_outputpath)) // trim(adjustl(sfile_esoil)))
146 :       end if
147 : 
148 :       if( jmax25t_out .eqv. .TRUE.) then
149 :          open(kfile_jmax25t, FILE=trim(adjustl(i_outputpath)) // trim(adjustl(sfile_jmax25t)))
150 :       end if
151 :       if( jmax25g_out .eqv. .TRUE.) then
152 :       open(kfile_jmax25g, FILE=trim(adjustl(i_outputpath)) // trim(adjustl(sfile_jmax25g)))
153 :       end if
154 :       if( vegcov_out .eqv. .TRUE.) then
155 :       open(kfile_vegcov, FILE=trim(adjustl(i_outputpath)) // trim(adjustl(sfile_vegcov)))
156 :       end if
157 :       if( resp_out .eqv. .TRUE.) then
158 :          open(kfile_resp, FILE=trim(adjustl(i_outputpath)) // trim(adjustl(sfile_resp)))
159 :       end if
160 :       if( lambdat_out .eqv. .TRUE.) then
161 :          open(kfile_lambdat, FILE=trim(adjustl(i_outputpath)) // trim(adjustl(sfile_lambdat)))
162 :       end if
163 :       if( lambdag_out .eqv. .TRUE.) then
164 :          open(kfile_lambdag, FILE=trim(adjustl(i_outputpath)) // trim(adjustl(sfile_lambdag)))
165 :       end if
166 :       if( rrt_out .eqv. .TRUE.) then
167 :          open(kfile_rrt, FILE=trim(adjustl(i_outputpath)) // trim(adjustl(sfile_rrt)))
168 :       end if
169 :       if( rrg_out .eqv. .TRUE.) then
170 :          open(kfile_rrg, FILE=trim(adjustl(i_outputpath)) // trim(adjustl(sfile_rrg)))
171 :       end if
172 :       if( asst_out .eqv. .TRUE.) then
173 :          open(kfile_asst, FILE=trim(adjustl(i_outputpath)) // trim(adjustl(sfile_asst)))
174 :       end if
175 :       if( assg_out .eqv. .TRUE.) then
176 :          open(kfile_assg, FILE=trim(adjustl(i_outputpath)) // trim(adjustl(sfile_assg)))
177 :       end if
178 :       if( su_av_out .eqv. .TRUE.) then
179 :          open(kfile_su_av, FILE=trim(adjustl(i_outputpath)) // trim(adjustl(sfile_su_av)))
180 :       end if
181 :       if( zw_out .eqv. .TRUE.) then
182 :          open(kfile_zw, FILE=trim(adjustl(i_outputpath)) // trim(adjustl(sfile_zw)))
183 :       end if
184 :       if( wsnew_out .eqv. .TRUE.) then
185 :          open(kfile_wsnew, FILE=trim(adjustl(i_outputpath)) // trim(adjustl(sfile_wsnew)))
186 :       end if
187 :       if( spgfcf_out .eqv. .TRUE.) then
188 :          open(kfile_spgfcf, FILE=trim(adjustl(i_outputpath)) // trim(adjustl(sfile_spgfcf)))
189 :       end if
190 :       if( infx_out .eqv. .TRUE.) then
191 :          open(kfile_infx, FILE=trim(adjustl(i_outputpath)) // trim(adjustl(sfile_infx)))
192 :       end if
193 :       if( etmt_out .eqv. .TRUE.) then
194 :           open(kfile_etmt, FILE=trim(adjustl(i_outputpath)) // trim(adjustl(sfile_etmt)))
195 :       end if
196 :       if( etmg_out .eqv. .TRUE.) then
197 :          open(kfile_etmg, FILE=trim(adjustl(i_outputpath)) // trim(adjustl(sfile_etmg)))
198 :       end if
199 :       if( su1_out .eqv. .TRUE.) then
200 :          open(kfile_su1, FILE=trim(adjustl(i_outputpath)) // trim(adjustl(sfile_su1)))
201 :       end if
202 :       if( topt_out .eqv. .TRUE.) then
203 :          open(kfile_topt, FILE=trim(adjustl(i_outputpath)) // trim(adjustl(sfile_topt)))
204 :       end if
205 : 
206 :       return
207 :       end subroutine open_output_randomruns