/[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.14 by jmc, Tue Sep 6 17:50:56 2005 UTC revision 1.15 by edhill, Sat Sep 10 18:30:06 2005 UTC
# Line 95  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_RL_W('D',bfname,0,0,'RC',rC,myThid)          CALL MNC_CW_RL_W('D',bfname,0,0,'RC',rC,myThid)
100          CALL MNC_CW_RL_W('D',bfname,0,0,'RF',rF,myThid)          CALL MNC_CW_RL_W('D',bfname,0,0,'RF',rF,myThid)
101          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.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22