/[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.19 by heimbach, Thu Jun 21 04:06:21 2007 UTC revision 1.20 by jmc, Tue Oct 9 00:05:45 2007 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "CTRL_CPPOPTIONS.h"  #include "CTRL_CPPOPTIONS.h"
5    
# Line 296  c--   == end of interface == Line 297  c--   == end of interface ==
297           write(fname(1:80),'(80a)') ' '           write(fname(1:80),'(80a)') ' '
298           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
299       &        yadmark, xx_tr1_file(1:il),'.',optimcycle       &        yadmark, xx_tr1_file(1:il),'.',optimcycle
300            
301           call active_read_xyz( fname, tmpfld3d, 1,           call active_read_xyz( fname, tmpfld3d, 1,
302       &                         doglobalread, ladinit, optimcycle,       &                         doglobalread, ladinit, optimcycle,
303       &                         mythid, dummy)       &                         mythid, dummy)
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22