/[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.3 by edhill, Wed Sep 22 21:19:44 2004 UTC revision 1.7 by edhill, Tue Nov 2 18:06:36 2004 UTC
# Line 87  C       Write 3D geometry arrays Line 87  C       Write 3D geometry arrays
87    
88  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
89        IF (useMNC .AND. snapshot_mnc) THEN        IF (useMNC .AND. snapshot_mnc) THEN
90          bfname='grid';          bfname='grid'
91    
92  C       Grid spacing, areas and hFacs  C       Grid spacing, areas and hFacs
93          CALL MNC_CW_ADD_VNAME('drC', '-_-_--__C__-', 0,0, myThid)          CALL MNC_CW_ADD_VNAME('drC', '-_-_--__C__-', 0,0, myThid)
# Line 139  C       Grid spacing, areas and hFacs Line 139  C       Grid spacing, areas and hFacs
139       &       'y u-velocity separation',myThid)       &       'y u-velocity separation',myThid)
140          CALL MNC_CW_ADD_VATTR_TEXT('rA','description',          CALL MNC_CW_ADD_VATTR_TEXT('rA','description',
141       &       'r-face area',myThid)       &       'r-face area',myThid)
142          CALL MNC_CW_ADD_VATTR_TEXT('rAw','description',  C       Its pointless to write blank attributes so these should be
143       &       '',myThid)  C       filled in.
144          CALL MNC_CW_ADD_VATTR_TEXT('rAs','description',  C        CALL MNC_CW_ADD_VATTR_TEXT('rAw','description',
145       &       '',myThid)  C     &       '',myThid)
146          CALL MNC_CW_ADD_VATTR_TEXT('rAz','description',  C        CALL MNC_CW_ADD_VATTR_TEXT('rAs','description',
147       &       '',myThid)  C     &       '',myThid)
148    C        CALL MNC_CW_ADD_VATTR_TEXT('rAz','description',
149    C       &       '',myThid)
150          CALL MNC_CW_ADD_VATTR_TEXT('fCori','description',          CALL MNC_CW_ADD_VATTR_TEXT('fCori','description',
151       &       'Coriolis f',myThid)       &       'Coriolis f',myThid)
152          CALL MNC_CW_ADD_VATTR_TEXT('fCoriG','description',          CALL MNC_CW_ADD_VATTR_TEXT('fCoriG','description',
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22