/[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.5 by edhill, Sun Oct 10 06:08:48 2004 UTC
# Line 26  C       |-- WRITE_GRID Line 26  C       |-- WRITE_GRID
26  #include "SIZE.h"  #include "SIZE.h"
27  #include "EEPARAMS.h"  #include "EEPARAMS.h"
28  #include "PARAMS.h"  #include "PARAMS.h"
 #ifdef ALLOW_MNC  
 #include "MNC_PARAMS.h"  
 #endif  
29  #include "GRID.h"  #include "GRID.h"
30    
31  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
# Line 139  C       Grid spacing, areas and hFacs Line 136  C       Grid spacing, areas and hFacs
136       &       'y u-velocity separation',myThid)       &       'y u-velocity separation',myThid)
137          CALL MNC_CW_ADD_VATTR_TEXT('rA','description',          CALL MNC_CW_ADD_VATTR_TEXT('rA','description',
138       &       'r-face area',myThid)       &       'r-face area',myThid)
139          CALL MNC_CW_ADD_VATTR_TEXT('rAw','description',  C       Its pointless to write blank attributes so these should be
140       &       '',myThid)  C       filled in.
141          CALL MNC_CW_ADD_VATTR_TEXT('rAs','description',  C        CALL MNC_CW_ADD_VATTR_TEXT('rAw','description',
142       &       '',myThid)  C     &       '',myThid)
143          CALL MNC_CW_ADD_VATTR_TEXT('rAz','description',  C        CALL MNC_CW_ADD_VATTR_TEXT('rAs','description',
144       &       '',myThid)  C     &       '',myThid)
145    C        CALL MNC_CW_ADD_VATTR_TEXT('rAz','description',
146    C       &       '',myThid)
147          CALL MNC_CW_ADD_VATTR_TEXT('fCori','description',          CALL MNC_CW_ADD_VATTR_TEXT('fCori','description',
148       &       'Coriolis f',myThid)       &       'Coriolis f',myThid)
149          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.5
  ViewVC Help
Powered by ViewVC 1.1.22