/[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.9 by heimbach, Fri Jul 18 21:10:16 2003 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 288  c--   == end of interface == Line 288  c--   == end of interface ==
288    
289  #endif /* ALLOW_OBCSE_CONTROL */  #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 303  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)') ' '
# Line 318  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)') ' '
# Line 333  c--   == end of interface == Line 363  c--   == end of interface ==
363    
364  #endif /* ALLOW_SSS0_CONTROL */  #endif /* ALLOW_SSS0_CONTROL */
365    
366  #ifdef ALLOW_HFACC_CONTROL  #ifdef ALLOW_DEPTH_CONTROL
367        else if ( grdchkvarindex .eq. 20 ) then        else if ( grdchkvarindex .eq. 20 ) then
368           il=ilnblnk( xx_hfacc_file )           il=ilnblnk( xx_depth_file )
369           write(fname(1:80),'(80a)') ' '           write(fname(1:80),'(80a)') ' '
370           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
371       &        yadmark, xx_hfacc_file(1:il),'.',optimcycle       &        yadmark, xx_depth_file(1:il),'.',optimcycle
   
 #ifdef ALLOW_HFACC3D_CONTROL  
   
          call active_read_xyz_loc( fname, tmpfld3d, icvrec,  
      &                        doglobalread, ladinit, optimcycle,  
      &                        mythid, dummy)  
   
          xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )  
   
 #else  
372    
373           call active_read_xy_loc( fname, tmpfld2d, icvrec,           call active_read_xy_loc( fname, tmpfld2d, icvrec,
374       &                        doglobalread, ladinit, optimcycle,       &                        doglobalread, ladinit, optimcycle,
# Line 356  c--   == end of interface == Line 376  c--   == end of interface ==
376    
377           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
378    
379  #endif /* ALLOW_HFACC3D_CONTROL */  #endif /* ALLOW_DEPTH_CONTROL */
 #endif /* ALLOW_HFACC_CONTROL */  
380    
381  #ifdef ALLOW_EFLUXY0_CONTROL  #ifdef ALLOW_EFLUXY0_CONTROL
382        else if ( grdchkvarindex .eq. 21 ) then        else if ( grdchkvarindex .eq. 21 ) then
# Line 389  c--   == end of interface == Line 408  c--   == end of interface ==
408    
409  #endif /* ALLOW_EFLUXP0_CONTROL */  #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.9  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22