/[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.4 by edhill, Thu Oct 7 01:48:07 2004 UTC
# 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.4
  ViewVC Help
Powered by ViewVC 1.1.22