/[MITgcm]/MITgcm/model/src/write_grid.F
ViewVC logotype

Diff of /MITgcm/model/src/write_grid.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.19 by jmc, Sun Oct 30 21:17:27 2005 UTC revision 1.20 by cnh, Tue Nov 8 23:01:10 2005 UTC
# Line 71  C             Total fluid column thickne Line 71  C             Total fluid column thickne
71    
72        IF ( writegrid_mdsio ) THEN        IF ( writegrid_mdsio ) THEN
73    
74          _BEGIN_MASTER( myThid )  C       _BEGIN_MASTER( myThid )
75    
76  C     Write horizontal grid arrays  C     Write horizontal grid arrays
77          CALL WRITE_FLD_XY_RS( 'XC',' ',XC,-1,myThid)          CALL WRITE_FLD_XY_RS( 'XC',' ',XC,-1,myThid)
# Line 110  C     Write vertical grid arrays Line 110  C     Write vertical grid arrays
110       &                                0,0, 1, -1, myThid)       &                                0,0, 1, -1, myThid)
111  #endif /* ALLOW_MDSIO */  #endif /* ALLOW_MDSIO */
112    
113          _END_MASTER(myThid)  C       _END_MASTER(myThid)
114    
115        ENDIF        ENDIF
116    
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22