/[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.2 by heimbach, Fri Jul 13 14:50:46 2001 UTC revision 1.16 by heimbach, Wed Jun 7 01:55:14 2006 UTC
# Line 48  c     == routine arguments == Line 48  c     == routine arguments ==
48        _RL     xx_comp        _RL     xx_comp
49        integer mythid        integer mythid
50    
51  #ifdef ALLOW_GRADIENT_CHECK  #ifdef ALLOW_GRDCHK
52  c     == local variables ==  c     == local variables ==
53    
54        integer il        integer il
# Line 61  c     == local variables == Line 61  c     == local variables ==
61    
62        character*(80) fname        character*(80) fname
63    
64          integer i,j,k
65    
66  c--   == external ==  c--   == external ==
67    
68        integer  ilnblnk        integer  ilnblnk
# Line 73  c--   == end of interface == Line 75  c--   == end of interface ==
75        dumiter      = 0        dumiter      = 0
76        dumtime      = 0. _d 0        dumtime      = 0. _d 0
77    
78        if      ( grdchkvarindex .eq. 1 ) then        if ( grdchkvarindex .eq. 0 ) then
79             STOP 'GRDCHK INDEX 0 NOT ALLOWED'
80    
81  #ifdef ALLOW_THETA0_CONTROL  #ifdef ALLOW_THETA0_CONTROL
82          else if ( grdchkvarindex .eq. 1 ) then
83           il=ilnblnk( xx_theta_file )           il=ilnblnk( xx_theta_file )
84           write(fname(1:80),'(80a)') ' '           write(fname(1:80),'(80a)') ' '
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( fname, tmpfld3d, 1,           call active_read_xyz_loc( fname, tmpfld3d, 1,
89       &                         doglobalread, ladinit, optimcycle,       &                         doglobalread, ladinit, optimcycle,
90       &                         mythid, dummy)       &                         mythid, dummy)
91    
# Line 95  c--   == end of interface == Line 100  c--   == end of interface ==
100           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
101       &        yadmark, xx_salt_file(1:il),'.',optimcycle       &        yadmark, xx_salt_file(1:il),'.',optimcycle
102                    
103           call active_read_xyz( fname, tmpfld3d, 1,           call active_read_xyz_loc( fname, tmpfld3d, 1,
104       &                         doglobalread, ladinit, optimcycle,       &                         doglobalread, ladinit, optimcycle,
105       &                         mythid, dummy)       &                         mythid, dummy)
106    
# Line 110  c--   == end of interface == Line 115  c--   == end of interface ==
115           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
116       &        yadmark, xx_hflux_file(1:il),'.',optimcycle       &        yadmark, xx_hflux_file(1:il),'.',optimcycle
117    
118           call active_read_xy( fname, tmpfld2d, icvrec,           call active_read_xy_loc( fname, tmpfld2d, icvrec,
119       &                        doglobalread, ladinit, optimcycle,       &                        doglobalread, ladinit, optimcycle,
120       &                        mythid, dummy)       &                        mythid, dummy)
121    
# Line 125  c--   == end of interface == Line 130  c--   == end of interface ==
130           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
131       &        yadmark, xx_sflux_file(1:il),'.',optimcycle       &        yadmark, xx_sflux_file(1:il),'.',optimcycle
132    
133           call active_read_xy( fname, tmpfld2d, icvrec,           call active_read_xy_loc( fname, tmpfld2d, icvrec,
134       &                        doglobalread, ladinit, optimcycle,       &                        doglobalread, ladinit, optimcycle,
135       &                        mythid, dummy)       &                        mythid, dummy)
136    
# Line 140  c--   == end of interface == Line 145  c--   == end of interface ==
145           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
146       &        yadmark, xx_tauu_file(1:il),'.',optimcycle       &        yadmark, xx_tauu_file(1:il),'.',optimcycle
147    
148           call active_read_xy( fname, tmpfld2d, icvrec,           call active_read_xy_loc( fname, tmpfld2d, icvrec,
149       &                        doglobalread, ladinit, optimcycle,       &                        doglobalread, ladinit, optimcycle,
150       &                        mythid, dummy)       &                        mythid, dummy)
151    
# Line 155  c--   == end of interface == Line 160  c--   == end of interface ==
160           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
161       &        yadmark, xx_tauv_file(1:il),'.',optimcycle       &        yadmark, xx_tauv_file(1:il),'.',optimcycle
162    
163           call active_read_xy( fname, tmpfld2d, icvrec,           call active_read_xy_loc( fname, tmpfld2d, icvrec,
164       &                        doglobalread, ladinit, optimcycle,       &                        doglobalread, ladinit, optimcycle,
165       &                        mythid, dummy)       &                        mythid, dummy)
166    
# Line 163  c--   == end of interface == Line 168  c--   == end of interface ==
168    
169  #endif /* ALLOW_VSTRESS_CONTROL */  #endif /* ALLOW_VSTRESS_CONTROL */
170    
171    #ifdef ALLOW_ATEMP_CONTROL
172          else if ( grdchkvarindex .eq. 7 ) then
173             il=ilnblnk( xx_atemp_file )
174             write(fname(1:80),'(80a)') ' '
175             write(fname(1:80),'(3a,i10.10)')
176         &        yadmark, xx_atemp_file(1:il),'.',optimcycle
177    
178             call active_read_xy_loc( fname, tmpfld2d, icvrec,
179         &                        doglobalread, ladinit, optimcycle,
180         &                        mythid, dummy)
181    
182             xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
183    
184    #endif /* ALLOW_ATEMP_CONTROL */
185    
186    #ifdef ALLOW_AQH_CONTROL
187          else if ( grdchkvarindex .eq. 8 ) then
188             il=ilnblnk( xx_aqh_file )
189             write(fname(1:80),'(80a)') ' '
190             write(fname(1:80),'(3a,i10.10)')
191         &        yadmark, xx_aqh_file(1:il),'.',optimcycle
192    
193             call active_read_xy_loc( fname, tmpfld2d, icvrec,
194         &                        doglobalread, ladinit, optimcycle,
195         &                        mythid, dummy)
196    
197             xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
198    
199    #endif /* ALLOW_AQH_CONTROL */
200    
201    #ifdef ALLOW_UWIND_CONTROL
202          else if ( grdchkvarindex .eq. 9 ) then
203             il=ilnblnk( xx_uwind_file )
204             write(fname(1:80),'(80a)') ' '
205             write(fname(1:80),'(3a,i10.10)')
206         &        yadmark, xx_uwind_file(1:il),'.',optimcycle
207    
208             call active_read_xy_loc( fname, tmpfld2d, icvrec,
209         &                        doglobalread, ladinit, optimcycle,
210         &                        mythid, dummy)
211    
212             xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
213    
214    #endif /* ALLOW_UWIND_CONTROL */
215    
216    #ifdef ALLOW_VWIND_CONTROL
217          else if ( grdchkvarindex .eq. 10 ) then
218             il=ilnblnk( xx_vwind_file )
219             write(fname(1:80),'(80a)') ' '
220             write(fname(1:80),'(3a,i10.10)')
221         &        yadmark, xx_vwind_file(1:il),'.',optimcycle
222    
223             call active_read_xy_loc( fname, tmpfld2d, icvrec,
224         &                        doglobalread, ladinit, optimcycle,
225         &                        mythid, dummy)
226    
227             xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
228    
229    #endif /* ALLOW_VWIND_CONTROL */
230    
231    #ifdef ALLOW_OBCSN_CONTROL
232          else if ( grdchkvarindex .eq. 11 ) then
233             il=ilnblnk( xx_obcsn_file )
234             write(fname(1:80),'(80a)') ' '
235             write(fname(1:80),'(3a,i10.10)')
236         &        yadmark, xx_obcsn_file(1:il),'.',optimcycle
237    
238             call active_read_xz_loc( fname, tmpfldxz, icvrec,
239         &                        doglobalread, ladinit, optimcycle,
240         &                        mythid, dummy)
241    
242             xx_comp = tmpfldxz( itilepos,layer,itile,jtile )
243    
244    #endif /* ALLOW_OBCSN_CONTROL */
245    
246    #ifdef ALLOW_OBCSS_CONTROL
247          else if ( grdchkvarindex .eq. 12 ) then
248             il=ilnblnk( xx_obcss_file )
249             write(fname(1:80),'(80a)') ' '
250             write(fname(1:80),'(3a,i10.10)')
251         &        yadmark, xx_obcss_file(1:il),'.',optimcycle
252    
253             call active_read_xz_loc( fname, tmpfldxz, icvrec,
254         &                        doglobalread, ladinit, optimcycle,
255         &                        mythid, dummy)
256    
257             xx_comp = tmpfldxz( itilepos,layer,itile,jtile )
258    
259    #endif /* ALLOW_OBCSS_CONTROL */
260    
261    #ifdef ALLOW_OBCSW_CONTROL
262          else if ( grdchkvarindex .eq. 13 ) then
263             il=ilnblnk( xx_obcsw_file )
264             write(fname(1:80),'(80a)') ' '
265             write(fname(1:80),'(3a,i10.10)')
266         &        yadmark, xx_obcsw_file(1:il),'.',optimcycle
267    
268             call active_read_yz_loc( fname, tmpfldyz, icvrec,
269         &                        doglobalread, ladinit, optimcycle,
270         &                        mythid, dummy)
271    
272             xx_comp = tmpfldyz( jtilepos,layer,itile,jtile )
273    
274    #endif /* ALLOW_OBCSW_CONTROL */
275    
276    #ifdef ALLOW_OBCSE_CONTROL
277          else if ( grdchkvarindex .eq. 14 ) then
278             il=ilnblnk( xx_obcse_file )
279             write(fname(1:80),'(80a)') ' '
280             write(fname(1:80),'(3a,i10.10)')
281         &        yadmark, xx_obcse_file(1:il),'.',optimcycle
282    
283             call active_read_yz_loc( fname, tmpfldyz, icvrec,
284         &                        doglobalread, ladinit, optimcycle,
285         &                        mythid, dummy)
286    
287             xx_comp = tmpfldyz( jtilepos,layer,itile,jtile )
288    
289    #endif /* ALLOW_OBCSE_CONTROL */
290    
291    #ifdef ALLOW_DIFFKR_CONTROL
292          else if ( grdchkvarindex .eq. 15 ) then
293             il=ilnblnk( xx_diffkr_file )
294             write(fname(1:80),'(80a)') ' '
295             write(fname(1:80),'(3a,i10.10)')
296         &        yadmark, xx_diffkr_file(1:il),'.',optimcycle
297    
298             call active_read_xyz_loc( fname, tmpfld3d, 1,
299         &                         doglobalread, ladinit, optimcycle,
300         &                         mythid, dummy)
301    
302             xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
303    
304    #endif /* ALLOW_DIFFKR_CONTROL */
305    
306    #ifdef ALLOW_KAPGM_CONTROL
307          else if ( grdchkvarindex .eq. 16 ) then
308             il=ilnblnk( xx_kapgm_file )
309             write(fname(1:80),'(80a)') ' '
310             write(fname(1:80),'(3a,i10.10)')
311         &        yadmark, xx_kapgm_file(1:il),'.',optimcycle
312    
313             call active_read_xyz_loc( fname, tmpfld3d, 1,
314         &                         doglobalread, ladinit, optimcycle,
315         &                         mythid, dummy)
316    
317             xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
318    
319    #endif /* ALLOW_KAPGM_CONTROL */
320    
321  #ifdef ALLOW_TR10_CONTROL  #ifdef ALLOW_TR10_CONTROL
322        else if ( grdchkvarindex .eq. 17 ) then        else if ( grdchkvarindex .eq. 17 ) then
323           il=ilnblnk( xx_tr1_file )           il=ilnblnk( xx_tr1_file )
# Line 170  c--   == end of interface == Line 325  c--   == end of interface ==
325           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
326       &        yadmark, xx_tr1_file(1:il),'.',optimcycle       &        yadmark, xx_tr1_file(1:il),'.',optimcycle
327                    
328           call active_read_xyz( fname, tmpfld3d, 1,           call active_read_xyz_loc( fname, tmpfld3d, 1,
329       &                         doglobalread, ladinit, optimcycle,       &                         doglobalread, ladinit, optimcycle,
330       &                         mythid, dummy)       &                         mythid, dummy)
331    
# Line 178  c--   == end of interface == Line 333  c--   == end of interface ==
333    
334  #endif /* ALLOW_TR10_CONTROL */  #endif /* ALLOW_TR10_CONTROL */
335    
336  #ifdef ALLOW_SST0_CONTROL  #if (defined (ALLOW_SST_CONTROL) || defined (ALLOW_SST0_CONTROL))
337        else if ( grdchkvarindex .eq. 18 ) then        else if ( grdchkvarindex .eq. 18 ) then
338           il=ilnblnk( xx_sst_file )           il=ilnblnk( xx_sst_file )
339           write(fname(1:80),'(80a)') ' '           write(fname(1:80),'(80a)') ' '
340           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
341       &        yadmark, xx_sst_file(1:il),'.',optimcycle       &        yadmark, xx_sst_file(1:il),'.',optimcycle
342    
343           call active_read_xy( fname, tmpfld2d, icvrec,           call active_read_xy_loc( fname, tmpfld2d, icvrec,
344       &                        doglobalread, ladinit, optimcycle,       &                        doglobalread, ladinit, optimcycle,
345       &                        mythid, dummy)       &                        mythid, dummy)
346    
# Line 193  c--   == end of interface == Line 348  c--   == end of interface ==
348    
349  #endif /* ALLOW_SST0_CONTROL */  #endif /* ALLOW_SST0_CONTROL */
350    
351  #ifdef ALLOW_SSS0_CONTROL  #if (defined (ALLOW_SSS_CONTROL) || defined (ALLOW_SSS0_CONTROL))
352        else if ( grdchkvarindex .eq. 19 ) then        else if ( grdchkvarindex .eq. 19 ) then
353           il=ilnblnk( xx_sss_file )           il=ilnblnk( xx_sss_file )
354           write(fname(1:80),'(80a)') ' '           write(fname(1:80),'(80a)') ' '
355           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
356       &        yadmark, xx_sss_file(1:il),'.',optimcycle       &        yadmark, xx_sss_file(1:il),'.',optimcycle
357    
358           call active_read_xy( fname, tmpfld2d, icvrec,           call active_read_xy_loc( fname, tmpfld2d, icvrec,
359       &                        doglobalread, ladinit, optimcycle,       &                        doglobalread, ladinit, optimcycle,
360       &                        mythid, dummy)       &                        mythid, dummy)
361    
# Line 208  c--   == end of interface == Line 363  c--   == end of interface ==
363    
364  #endif /* ALLOW_SSS0_CONTROL */  #endif /* ALLOW_SSS0_CONTROL */
365    
366    #ifdef ALLOW_DEPTH_CONTROL
367          else if ( grdchkvarindex .eq. 20 ) then
368             il=ilnblnk( xx_depth_file )
369             write(fname(1:80),'(80a)') ' '
370             write(fname(1:80),'(3a,i10.10)')
371         &        yadmark, xx_depth_file(1:il),'.',optimcycle
372    
373             call active_read_xy_loc( fname, tmpfld2d, icvrec,
374         &                        doglobalread, ladinit, optimcycle,
375         &                        mythid, dummy)
376    
377             xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
378    
379    #endif /* ALLOW_DEPTH_CONTROL */
380    
381    #ifdef ALLOW_EFLUXY0_CONTROL
382          else if ( grdchkvarindex .eq. 21 ) then
383             il=ilnblnk( xx_efluxy_file )
384             write(fname(1:80),'(80a)') ' '
385             write(fname(1:80),'(3a,i10.10)')
386         &        yadmark, xx_efluxy_file(1:il),'.',optimcycle
387    
388             call active_read_xyz_loc( fname, tmpfld3d, 1,
389         &                         doglobalread, ladinit, optimcycle,
390         &                         mythid, dummy)
391    
392             xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
393    
394    #endif /* ALLOW_EFLUXY0_CONTROL */
395    
396    #ifdef ALLOW_EFLUXP0_CONTROL
397          else if ( grdchkvarindex .eq. 22 ) then
398             il=ilnblnk( xx_efluxp_file )
399             write(fname(1:80),'(80a)') ' '
400             write(fname(1:80),'(3a,i10.10)')
401         &        yadmark, xx_efluxp_file(1:il),'.',optimcycle
402    
403             call active_read_xyz_loc( fname, tmpfld3d, 1,
404         &                         doglobalread, ladinit, optimcycle,
405         &                         mythid, dummy)
406    
407             xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
408    
409    #endif /* ALLOW_EFLUXP0_CONTROL */
410    
411    #ifdef ALLOW_PRECIP_CONTROL
412          else if ( grdchkvarindex .eq. 32 ) then
413             il=ilnblnk( xx_precip_file )
414             write(fname(1:80),'(80a)') ' '
415             write(fname(1:80),'(3a,i10.10)')
416         &        yadmark, xx_precip_file(1:il),'.',optimcycle
417    
418             call active_read_xy_loc( fname, tmpfld2d, icvrec,
419         &                        doglobalread, ladinit, optimcycle,
420         &                        mythid, dummy)
421    
422             xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
423    
424    #endif /* ALLOW_PRECIP_CONTROL */
425    
426    #ifdef ALLOW_SWFLUX_CONTROL
427          else if ( grdchkvarindex .eq. 33 ) then
428             il=ilnblnk( xx_swflux_file )
429             write(fname(1:80),'(80a)') ' '
430             write(fname(1:80),'(3a,i10.10)')
431         &        yadmark, xx_swflux_file(1:il),'.',optimcycle
432    
433             call active_read_xy_loc( fname, tmpfld2d, icvrec,
434         &                        doglobalread, ladinit, optimcycle,
435         &                        mythid, dummy)
436    
437             xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
438    
439    #endif /* ALLOW_SWFLUX_CONTROL */
440    
441    #ifdef ALLOW_SWDOWN_CONTROL
442          else if ( grdchkvarindex .eq. 34 ) then
443             il=ilnblnk( xx_swdown_file )
444             write(fname(1:80),'(80a)') ' '
445             write(fname(1:80),'(3a,i10.10)')
446         &        yadmark, xx_swdown_file(1:il),'.',optimcycle
447    
448             call active_read_xy_loc( fname, tmpfld2d, icvrec,
449         &                        doglobalread, ladinit, optimcycle,
450         &                        mythid, dummy)
451    
452             xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
453    
454    #endif /* ALLOW_SWDOWN_CONTROL */
455    
456        else        else
457  ce      --> this index does not exist yet.  ce      --> this index does not exist yet.
458        endif        endif
459    
460  #endif /* ALLOW_GRADIENT_CHECK */  #endif /* ALLOW_GRDCHK */
461    
462        end        end
463    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22