/[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.15 by edhill, Sat Sep 10 18:30:06 2005 UTC revision 1.16 by edhill, Sat Sep 17 03:17:05 2005 UTC
# Line 96  C     Write 3D geometry arrays Line 96  C     Write 3D geometry arrays
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)          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.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22