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