/[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.15 by heimbach, Fri May 12 02:17:03 2006 UTC revision 1.16 by heimbach, Wed Jun 7 01:55:14 2006 UTC
# Line 363  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 386  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
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22