/[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.21 by jmc, Fri Aug 4 01:27:31 2006 UTC revision 1.22 by mlosch, Fri Feb 8 13:01:25 2008 UTC
# Line 85  C     Write horizontal grid arrays Line 85  C     Write horizontal grid arrays
85          CALL WRITE_FLD_XY_RS( 'DYG',' ',dyG,-1,myThid)          CALL WRITE_FLD_XY_RS( 'DYG',' ',dyG,-1,myThid)
86          CALL WRITE_FLD_XY_RS( 'DXC',' ',dxC,-1,myThid)          CALL WRITE_FLD_XY_RS( 'DXC',' ',dxC,-1,myThid)
87          CALL WRITE_FLD_XY_RS( 'DYC',' ',dyC,-1,myThid)          CALL WRITE_FLD_XY_RS( 'DYC',' ',dyC,-1,myThid)
88          IF ( usingCurvilinearGrid ) THEN          IF ( usingCurvilinearGrid .OR. rotateGrid ) THEN
89            CALL WRITE_FLD_XY_RS( 'AngleCS',' ',angleCosC,-1,myThid)            CALL WRITE_FLD_XY_RS( 'AngleCS',' ',angleCosC,-1,myThid)
90            CALL WRITE_FLD_XY_RS( 'AngleSN',' ',angleSinC,-1,myThid)            CALL WRITE_FLD_XY_RS( 'AngleSN',' ',angleSinC,-1,myThid)
91          ENDIF          ENDIF
# Line 149  c       CALL MNC_CW_RL_W('D',bfname,0,0, Line 149  c       CALL MNC_CW_RL_W('D',bfname,0,0,
149          CALL MNC_CW_RL_W('D',bfname,0,0,'rAw',rAw,myThid)          CALL MNC_CW_RL_W('D',bfname,0,0,'rAw',rAw,myThid)
150          CALL MNC_CW_RL_W('D',bfname,0,0,'rAs',rAs,myThid)          CALL MNC_CW_RL_W('D',bfname,0,0,'rAs',rAs,myThid)
151          CALL MNC_CW_RL_W('D',bfname,0,0,'rAz',rAz,myThid)          CALL MNC_CW_RL_W('D',bfname,0,0,'rAz',rAz,myThid)
152          IF ( usingCurvilinearGrid ) THEN          IF ( usingCurvilinearGrid .OR. rotateGrid ) THEN
153            CALL MNC_CW_RL_W('D',bfname,0,0,'AngleCS',angleCosC,myThid)            CALL MNC_CW_RL_W('D',bfname,0,0,'AngleCS',angleCosC,myThid)
154            CALL MNC_CW_RL_W('D',bfname,0,0,'AngleSN',angleSinC,myThid)            CALL MNC_CW_RL_W('D',bfname,0,0,'AngleSN',angleSinC,myThid)
155          ENDIF          ENDIF
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22