/[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.36 by jmc, Fri Jul 6 21:44:39 2012 UTC revision 1.37 by jmc, Sun Feb 17 02:24:57 2013 UTC
# Line 93  C     Write horizontal grid arrays Line 93  C     Write horizontal grid arrays
93          IF ( usingCurvilinearGrid .OR. rotateGrid ) THEN          IF ( usingCurvilinearGrid .OR. rotateGrid ) THEN
94            CALL WRITE_FLD_XY_RS( 'AngleCS',' ',angleCosC,-1,myThid)            CALL WRITE_FLD_XY_RS( 'AngleCS',' ',angleCosC,-1,myThid)
95            CALL WRITE_FLD_XY_RS( 'AngleSN',' ',angleSinC,-1,myThid)            CALL WRITE_FLD_XY_RS( 'AngleSN',' ',angleSinC,-1,myThid)
96              CALL WRITE_FLD_XY_RS( 'U2zonDir',' ',u2zonDir,-1,myThid)
97              CALL WRITE_FLD_XY_RS( 'V2zonDir',' ',v2zonDir,-1,myThid)
98          ENDIF          ENDIF
99  C     Write 3D geometry arrays  C     Write 3D geometry arrays
100          CALL WRITE_FLD_XY_RS( 'Depth',' ',tmpfld,-1,myThid)          CALL WRITE_FLD_XY_RS( 'Depth',' ',tmpfld,-1,myThid)
Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37
  ViewVC Help
Powered by ViewVC 1.1.22