/[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.3 by heimbach, Thu May 30 22:47:26 2002 UTC
# Line 208  c--   == end of interface == Line 208  c--   == end of interface ==
208    
209  #endif /* ALLOW_SSS0_CONTROL */  #endif /* ALLOW_SSS0_CONTROL */
210    
211    #ifdef ALLOW_HFACC_CONTROL
212          else if ( grdchkvarindex .eq. 20 ) then
213             il=ilnblnk( xx_hfacc_file )
214             write(fname(1:80),'(80a)') ' '
215             write(fname(1:80),'(3a,i10.10)')
216         &        yadmark, xx_hfacc_file(1:il),'.',optimcycle
217    
218    #ifdef ALLOW_HFACC3D_CONTROL
219    
220             call active_read_xyz( fname, tmpfld3d, icvrec,
221         &                        doglobalread, ladinit, optimcycle,
222         &                        mythid, dummy)
223    
224             xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
225    
226    #else
227    
228             call active_read_xy( fname, tmpfld2d, icvrec,
229         &                        doglobalread, ladinit, optimcycle,
230         &                        mythid, dummy)
231    
232             xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
233    
234    #endif /* ALLOW_HFACC3D_CONTROL */
235    #endif /* ALLOW_HFACC_CONTROL */
236    
237        else        else
238  ce      --> this index does not exist yet.  ce      --> this index does not exist yet.
239        endif        endif
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22