/[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.13 by edhill, Tue Sep 6 02:16:10 2005 UTC revision 1.16 by edhill, Sat Sep 17 03:17:05 2005 UTC
# Line 69  C     Write horizontal grid arrays Line 69  C     Write horizontal grid arrays
69        CALL WRITE_FLD_XY_RS( 'RAC',' ',rA,0,myThid)        CALL WRITE_FLD_XY_RS( 'RAC',' ',rA,0,myThid)
70        CALL WRITE_FLD_XY_RS( 'RAW',' ',rAw,0,myThid)        CALL WRITE_FLD_XY_RS( 'RAW',' ',rAw,0,myThid)
71        CALL WRITE_FLD_XY_RS( 'RAS',' ',rAs,0,myThid)        CALL WRITE_FLD_XY_RS( 'RAS',' ',rAs,0,myThid)
72          CALL WRITE_FLD_XY_RS( 'RAZ',' ',rAz,0,myThid)
73        CALL WRITE_FLD_XY_RS( 'DXG',' ',DXG,0,myThid)        CALL WRITE_FLD_XY_RS( 'DXG',' ',DXG,0,myThid)
74        CALL WRITE_FLD_XY_RS( 'DYG',' ',DYG,0,myThid)        CALL WRITE_FLD_XY_RS( 'DYG',' ',DYG,0,myThid)
75        CALL WRITE_FLD_XY_RS( 'DXC',' ',DXC,0,myThid)        CALL WRITE_FLD_XY_RS( 'DXC',' ',DXC,0,myThid)
# Line 94  C     Write 3D geometry arrays Line 95  C     Write 3D geometry arrays
95                    
96  C       Write the GRID.h variables to a file  C       Write the GRID.h variables to a file
97          CALL MNC_CW_SET_UDIM(bfname, 0, myThid)          CALL MNC_CW_SET_UDIM(bfname, 0, myThid)
98            CALL MNC_CW_SET_CITER(bfname, 2, -1, -1, -1, myThid)
99            CALL MNC_CW_SET_UDIM(bfname, 1, myThid)
100          CALL MNC_CW_RL_W('D',bfname,0,0,'RC',rC,myThid)          CALL MNC_CW_RL_W('D',bfname,0,0,'RC',rC,myThid)
101          CALL MNC_CW_RL_W('D',bfname,0,0,'RF',rF,myThid)          CALL MNC_CW_RL_W('D',bfname,0,0,'RF',rF,myThid)
102          CALL MNC_CW_RL_W('D',bfname,0,0,'RU',rF(2),myThid)          CALL MNC_CW_RL_W('D',bfname,0,0,'RU',rF(2),myThid)
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22