/[MITgcm]/MITgcm/pkg/grdchk/grdchk_getadxx.F
ViewVC logotype

Diff of /MITgcm/pkg/grdchk/grdchk_getadxx.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.17 by heimbach, Fri Oct 27 05:16:54 2006 UTC revision 1.18 by heimbach, Mon May 14 21:53:12 2007 UTC
# Line 85  c--   == end of interface == Line 85  c--   == end of interface ==
85           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
86       &        yadmark, xx_theta_file(1:il),'.',optimcycle       &        yadmark, xx_theta_file(1:il),'.',optimcycle
87    
88           call active_read_xyz_loc( fname, tmpfld3d, 1,           call active_read_xyz( fname, tmpfld3d, 1,
89       &                         doglobalread, ladinit, optimcycle,       &                         doglobalread, ladinit, optimcycle,
90       &                         mythid, dummy)       &                         mythid, dummy)
91           xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )           xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
# Line 97  c--   == end of interface == Line 97  c--   == end of interface ==
97           write(fname(1:80),'(80a)') ' '           write(fname(1:80),'(80a)') ' '
98           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
99       &        yadmark, xx_salt_file(1:il),'.',optimcycle       &        yadmark, xx_salt_file(1:il),'.',optimcycle
100           call active_read_xyz_loc( fname, tmpfld3d, 1,           call active_read_xyz( fname, tmpfld3d, 1,
101       &                         doglobalread, ladinit, optimcycle,       &                         doglobalread, ladinit, optimcycle,
102       &                         mythid, dummy)       &                         mythid, dummy)
103           xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )           xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
# Line 110  c--   == end of interface == Line 110  c--   == end of interface ==
110           write(fname(1:80),'(80a)') ' '           write(fname(1:80),'(80a)') ' '
111           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
112       &        yadmark, xx_hflux_file(1:il),'.',optimcycle       &        yadmark, xx_hflux_file(1:il),'.',optimcycle
113           call active_read_xy_loc( fname, tmpfld2d, icvrec,           call active_read_xy( fname, tmpfld2d, icvrec,
114       &                        doglobalread, ladinit, optimcycle,       &                        doglobalread, ladinit, optimcycle,
115       &                        mythid, dummy)       &                        mythid, dummy)
116           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
# Line 122  c--   == end of interface == Line 122  c--   == end of interface ==
122           write(fname(1:80),'(80a)') ' '           write(fname(1:80),'(80a)') ' '
123           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
124       &        yadmark, xx_sflux_file(1:il),'.',optimcycle       &        yadmark, xx_sflux_file(1:il),'.',optimcycle
125           call active_read_xy_loc( fname, tmpfld2d, icvrec,           call active_read_xy( fname, tmpfld2d, icvrec,
126       &                        doglobalread, ladinit, optimcycle,       &                        doglobalread, ladinit, optimcycle,
127       &                        mythid, dummy)       &                        mythid, dummy)
128           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
# Line 134  c--   == end of interface == Line 134  c--   == end of interface ==
134           write(fname(1:80),'(80a)') ' '           write(fname(1:80),'(80a)') ' '
135           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
136       &        yadmark, xx_tauu_file(1:il),'.',optimcycle       &        yadmark, xx_tauu_file(1:il),'.',optimcycle
137           call active_read_xy_loc( fname, tmpfld2d, icvrec,           call active_read_xy( fname, tmpfld2d, icvrec,
138       &                        doglobalread, ladinit, optimcycle,       &                        doglobalread, ladinit, optimcycle,
139       &                        mythid, dummy)       &                        mythid, dummy)
140           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
# Line 146  c--   == end of interface == Line 146  c--   == end of interface ==
146           write(fname(1:80),'(80a)') ' '           write(fname(1:80),'(80a)') ' '
147           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
148       &        yadmark, xx_tauv_file(1:il),'.',optimcycle       &        yadmark, xx_tauv_file(1:il),'.',optimcycle
149           call active_read_xy_loc( fname, tmpfld2d, icvrec,           call active_read_xy( fname, tmpfld2d, icvrec,
150       &                        doglobalread, ladinit, optimcycle,       &                        doglobalread, ladinit, optimcycle,
151       &                        mythid, dummy)       &                        mythid, dummy)
152           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
# Line 158  c--   == end of interface == Line 158  c--   == end of interface ==
158           write(fname(1:80),'(80a)') ' '           write(fname(1:80),'(80a)') ' '
159           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
160       &        yadmark, xx_atemp_file(1:il),'.',optimcycle       &        yadmark, xx_atemp_file(1:il),'.',optimcycle
161           call active_read_xy_loc( fname, tmpfld2d, icvrec,           call active_read_xy( fname, tmpfld2d, icvrec,
162       &                        doglobalread, ladinit, optimcycle,       &                        doglobalread, ladinit, optimcycle,
163       &                        mythid, dummy)       &                        mythid, dummy)
164           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
# Line 170  c--   == end of interface == Line 170  c--   == end of interface ==
170           write(fname(1:80),'(80a)') ' '           write(fname(1:80),'(80a)') ' '
171           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
172       &        yadmark, xx_aqh_file(1:il),'.',optimcycle       &        yadmark, xx_aqh_file(1:il),'.',optimcycle
173           call active_read_xy_loc( fname, tmpfld2d, icvrec,           call active_read_xy( fname, tmpfld2d, icvrec,
174       &                        doglobalread, ladinit, optimcycle,       &                        doglobalread, ladinit, optimcycle,
175       &                        mythid, dummy)       &                        mythid, dummy)
176           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
# Line 182  c--   == end of interface == Line 182  c--   == end of interface ==
182           write(fname(1:80),'(80a)') ' '           write(fname(1:80),'(80a)') ' '
183           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
184       &        yadmark, xx_uwind_file(1:il),'.',optimcycle       &        yadmark, xx_uwind_file(1:il),'.',optimcycle
185           call active_read_xy_loc( fname, tmpfld2d, icvrec,           call active_read_xy( fname, tmpfld2d, icvrec,
186       &                        doglobalread, ladinit, optimcycle,       &                        doglobalread, ladinit, optimcycle,
187       &                        mythid, dummy)       &                        mythid, dummy)
188           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
# Line 194  c--   == end of interface == Line 194  c--   == end of interface ==
194           write(fname(1:80),'(80a)') ' '           write(fname(1:80),'(80a)') ' '
195           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
196       &        yadmark, xx_vwind_file(1:il),'.',optimcycle       &        yadmark, xx_vwind_file(1:il),'.',optimcycle
197           call active_read_xy_loc( fname, tmpfld2d, icvrec,           call active_read_xy( fname, tmpfld2d, icvrec,
198       &                        doglobalread, ladinit, optimcycle,       &                        doglobalread, ladinit, optimcycle,
199       &                        mythid, dummy)       &                        mythid, dummy)
200           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
# Line 207  c--   == end of interface == Line 207  c--   == end of interface ==
207           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
208       &        yadmark, xx_obcsn_file(1:il),'.',optimcycle       &        yadmark, xx_obcsn_file(1:il),'.',optimcycle
209    
210           call active_read_xz_loc( fname, tmpfldxz, icvrec,           call active_read_xz( fname, tmpfldxz, icvrec,
211       &                        doglobalread, ladinit, optimcycle,       &                        doglobalread, ladinit, optimcycle,
212       &                        mythid, dummy)       &                        mythid, dummy)
213    
# Line 222  c--   == end of interface == Line 222  c--   == end of interface ==
222           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
223       &        yadmark, xx_obcss_file(1:il),'.',optimcycle       &        yadmark, xx_obcss_file(1:il),'.',optimcycle
224    
225           call active_read_xz_loc( fname, tmpfldxz, icvrec,           call active_read_xz( fname, tmpfldxz, icvrec,
226       &                        doglobalread, ladinit, optimcycle,       &                        doglobalread, ladinit, optimcycle,
227       &                        mythid, dummy)       &                        mythid, dummy)
228    
# Line 237  c--   == end of interface == Line 237  c--   == end of interface ==
237           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
238       &        yadmark, xx_obcsw_file(1:il),'.',optimcycle       &        yadmark, xx_obcsw_file(1:il),'.',optimcycle
239    
240           call active_read_yz_loc( fname, tmpfldyz, icvrec,           call active_read_yz( fname, tmpfldyz, icvrec,
241       &                        doglobalread, ladinit, optimcycle,       &                        doglobalread, ladinit, optimcycle,
242       &                        mythid, dummy)       &                        mythid, dummy)
243    
# Line 252  c--   == end of interface == Line 252  c--   == end of interface ==
252           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
253       &        yadmark, xx_obcse_file(1:il),'.',optimcycle       &        yadmark, xx_obcse_file(1:il),'.',optimcycle
254    
255           call active_read_yz_loc( fname, tmpfldyz, icvrec,           call active_read_yz( fname, tmpfldyz, icvrec,
256       &                        doglobalread, ladinit, optimcycle,       &                        doglobalread, ladinit, optimcycle,
257       &                        mythid, dummy)       &                        mythid, dummy)
258    
# Line 267  c--   == end of interface == Line 267  c--   == end of interface ==
267           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
268       &        yadmark, xx_diffkr_file(1:il),'.',optimcycle       &        yadmark, xx_diffkr_file(1:il),'.',optimcycle
269    
270           call active_read_xyz_loc( fname, tmpfld3d, 1,           call active_read_xyz( fname, tmpfld3d, 1,
271       &                         doglobalread, ladinit, optimcycle,       &                         doglobalread, ladinit, optimcycle,
272       &                         mythid, dummy)       &                         mythid, dummy)
273    
# Line 282  c--   == end of interface == Line 282  c--   == end of interface ==
282           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
283       &        yadmark, xx_kapgm_file(1:il),'.',optimcycle       &        yadmark, xx_kapgm_file(1:il),'.',optimcycle
284    
285           call active_read_xyz_loc( fname, tmpfld3d, 1,           call active_read_xyz( fname, tmpfld3d, 1,
286       &                         doglobalread, ladinit, optimcycle,       &                         doglobalread, ladinit, optimcycle,
287       &                         mythid, dummy)       &                         mythid, dummy)
288    
# Line 297  c--   == end of interface == Line 297  c--   == end of interface ==
297           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
298       &        yadmark, xx_tr1_file(1:il),'.',optimcycle       &        yadmark, xx_tr1_file(1:il),'.',optimcycle
299                    
300           call active_read_xyz_loc( fname, tmpfld3d, 1,           call active_read_xyz( fname, tmpfld3d, 1,
301       &                         doglobalread, ladinit, optimcycle,       &                         doglobalread, ladinit, optimcycle,
302       &                         mythid, dummy)       &                         mythid, dummy)
303    
# Line 311  c--   == end of interface == Line 311  c--   == end of interface ==
311           write(fname(1:80),'(80a)') ' '           write(fname(1:80),'(80a)') ' '
312           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
313       &        yadmark, xx_sst_file(1:il),'.',optimcycle       &        yadmark, xx_sst_file(1:il),'.',optimcycle
314           call active_read_xy_loc( fname, tmpfld2d, icvrec,           call active_read_xy( fname, tmpfld2d, icvrec,
315       &                        doglobalread, ladinit, optimcycle,       &                        doglobalread, ladinit, optimcycle,
316       &                        mythid, dummy)       &                        mythid, dummy)
317           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
# Line 323  c--   == end of interface == Line 323  c--   == end of interface ==
323           write(fname(1:80),'(80a)') ' '           write(fname(1:80),'(80a)') ' '
324           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
325       &        yadmark, xx_sss_file(1:il),'.',optimcycle       &        yadmark, xx_sss_file(1:il),'.',optimcycle
326           call active_read_xy_loc( fname, tmpfld2d, icvrec,           call active_read_xy( fname, tmpfld2d, icvrec,
327       &                        doglobalread, ladinit, optimcycle,       &                        doglobalread, ladinit, optimcycle,
328       &                        mythid, dummy)       &                        mythid, dummy)
329           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
# Line 335  c--   == end of interface == Line 335  c--   == end of interface ==
335           write(fname(1:80),'(80a)') ' '           write(fname(1:80),'(80a)') ' '
336           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
337       &        yadmark, xx_depth_file(1:il),'.',optimcycle       &        yadmark, xx_depth_file(1:il),'.',optimcycle
338           call active_read_xy_loc( fname, tmpfld2d, icvrec,           call active_read_xy( fname, tmpfld2d, icvrec,
339       &                        doglobalread, ladinit, optimcycle,       &                        doglobalread, ladinit, optimcycle,
340       &                        mythid, dummy)       &                        mythid, dummy)
341           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
# Line 348  c--   == end of interface == Line 348  c--   == end of interface ==
348           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
349       &        yadmark, xx_efluxy_file(1:il),'.',optimcycle       &        yadmark, xx_efluxy_file(1:il),'.',optimcycle
350    
351           call active_read_xyz_loc( fname, tmpfld3d, 1,           call active_read_xyz( fname, tmpfld3d, 1,
352       &                         doglobalread, ladinit, optimcycle,       &                         doglobalread, ladinit, optimcycle,
353       &                         mythid, dummy)       &                         mythid, dummy)
354    
# Line 363  c--   == end of interface == Line 363  c--   == end of interface ==
363           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
364       &        yadmark, xx_efluxp_file(1:il),'.',optimcycle       &        yadmark, xx_efluxp_file(1:il),'.',optimcycle
365    
366           call active_read_xyz_loc( fname, tmpfld3d, 1,           call active_read_xyz( fname, tmpfld3d, 1,
367       &                         doglobalread, ladinit, optimcycle,       &                         doglobalread, ladinit, optimcycle,
368       &                         mythid, dummy)       &                         mythid, dummy)
369    
# Line 377  c--   == end of interface == Line 377  c--   == end of interface ==
377           write(fname(1:80),'(80a)') ' '           write(fname(1:80),'(80a)') ' '
378           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
379       &        yadmark, xx_precip_file(1:il),'.',optimcycle       &        yadmark, xx_precip_file(1:il),'.',optimcycle
380           call active_read_xy_loc( fname, tmpfld2d, icvrec,           call active_read_xy( fname, tmpfld2d, icvrec,
381       &                        doglobalread, ladinit, optimcycle,       &                        doglobalread, ladinit, optimcycle,
382       &                        mythid, dummy)       &                        mythid, dummy)
383           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
# Line 389  c--   == end of interface == Line 389  c--   == end of interface ==
389           write(fname(1:80),'(80a)') ' '           write(fname(1:80),'(80a)') ' '
390           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
391       &        yadmark, xx_swflux_file(1:il),'.',optimcycle       &        yadmark, xx_swflux_file(1:il),'.',optimcycle
392           call active_read_xy_loc( fname, tmpfld2d, icvrec,           call active_read_xy( fname, tmpfld2d, icvrec,
393       &                        doglobalread, ladinit, optimcycle,       &                        doglobalread, ladinit, optimcycle,
394       &                        mythid, dummy)       &                        mythid, dummy)
395           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
# Line 401  c--   == end of interface == Line 401  c--   == end of interface ==
401           write(fname(1:80),'(80a)') ' '           write(fname(1:80),'(80a)') ' '
402           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
403       &        yadmark, xx_swdown_file(1:il),'.',optimcycle       &        yadmark, xx_swdown_file(1:il),'.',optimcycle
404           call active_read_xy_loc( fname, tmpfld2d, icvrec,           call active_read_xy( fname, tmpfld2d, icvrec,
405       &                        doglobalread, ladinit, optimcycle,       &                        doglobalread, ladinit, optimcycle,
406       &                        mythid, dummy)       &                        mythid, dummy)
407           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
# Line 413  c--   == end of interface == Line 413  c--   == end of interface ==
413           write(fname(1:80),'(80a)') ' '           write(fname(1:80),'(80a)') ' '
414           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
415       &        yadmark, xx_lwflux_file(1:il),'.',optimcycle       &        yadmark, xx_lwflux_file(1:il),'.',optimcycle
416           call active_read_xy_loc( fname, tmpfld2d, icvrec,           call active_read_xy( fname, tmpfld2d, icvrec,
417       &                        doglobalread, ladinit, optimcycle,       &                        doglobalread, ladinit, optimcycle,
418       &                        mythid, dummy)       &                        mythid, dummy)
419           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
# Line 425  c--   == end of interface == Line 425  c--   == end of interface ==
425           write(fname(1:80),'(80a)') ' '           write(fname(1:80),'(80a)') ' '
426           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
427       &        yadmark, xx_lwdown_file(1:il),'.',optimcycle       &        yadmark, xx_lwdown_file(1:il),'.',optimcycle
428           call active_read_xy_loc( fname, tmpfld2d, icvrec,           call active_read_xy( fname, tmpfld2d, icvrec,
429       &                        doglobalread, ladinit, optimcycle,       &                        doglobalread, ladinit, optimcycle,
430       &                        mythid, dummy)       &                        mythid, dummy)
431           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
# Line 437  c--   == end of interface == Line 437  c--   == end of interface ==
437           write(fname(1:80),'(80a)') ' '           write(fname(1:80),'(80a)') ' '
438           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
439       &        yadmark, xx_evap_file(1:il),'.',optimcycle       &        yadmark, xx_evap_file(1:il),'.',optimcycle
440           call active_read_xy_loc( fname, tmpfld2d, icvrec,           call active_read_xy( fname, tmpfld2d, icvrec,
441       &                        doglobalread, ladinit, optimcycle,       &                        doglobalread, ladinit, optimcycle,
442       &                        mythid, dummy)       &                        mythid, dummy)
443           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
# Line 449  c--   == end of interface == Line 449  c--   == end of interface ==
449           write(fname(1:80),'(80a)') ' '           write(fname(1:80),'(80a)') ' '
450           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
451       &        yadmark, xx_snowprecip_file(1:il),'.',optimcycle       &        yadmark, xx_snowprecip_file(1:il),'.',optimcycle
452           call active_read_xy_loc( fname, tmpfld2d, icvrec,           call active_read_xy( fname, tmpfld2d, icvrec,
453       &                        doglobalread, ladinit, optimcycle,       &                        doglobalread, ladinit, optimcycle,
454       &                        mythid, dummy)       &                        mythid, dummy)
455           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
# Line 462  c--   == end of interface == Line 462  c--   == end of interface ==
462           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
463       &        yadmark, xx_apressure_file(1:il),'.',optimcycle       &        yadmark, xx_apressure_file(1:il),'.',optimcycle
464    
465           call active_read_xy_loc( fname, tmpfld2d, icvrec,           call active_read_xy( fname, tmpfld2d, icvrec,
466       &                        doglobalread, ladinit, optimcycle,       &                        doglobalread, ladinit, optimcycle,
467       &                        mythid, dummy)       &                        mythid, dummy)
468           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
# Line 474  c--   == end of interface == Line 474  c--   == end of interface ==
474           write(fname(1:80),'(80a)') ' '           write(fname(1:80),'(80a)') ' '
475           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
476       &        yadmark, xx_runoff_file(1:il),'.',optimcycle       &        yadmark, xx_runoff_file(1:il),'.',optimcycle
477           call active_read_xy_loc( fname, tmpfld2d, icvrec,           call active_read_xy( fname, tmpfld2d, icvrec,
478       &                        doglobalread, ladinit, optimcycle,       &                        doglobalread, ladinit, optimcycle,
479       &                        mythid, dummy)       &                        mythid, dummy)
480           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22