/[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.2 by edhill, Fri Sep 10 12:19:30 2004 UTC revision 1.3 by edhill, Wed Sep 22 21:19:44 2004 UTC
# Line 115  C       Grid spacing, areas and hFacs Line 115  C       Grid spacing, areas and hFacs
115          CALL MNC_CW_ADD_VNAME('HFacW', 'Cen_xy_Hn__C__-', 4,5,myThid)          CALL MNC_CW_ADD_VNAME('HFacW', 'Cen_xy_Hn__C__-', 4,5,myThid)
116          CALL MNC_CW_ADD_VNAME('HFacS', 'Cen_xy_Hn__C__-', 4,5,myThid)          CALL MNC_CW_ADD_VNAME('HFacS', 'Cen_xy_Hn__C__-', 4,5,myThid)
117                    
118          CALL MNC_CW_ADD_VATTR_TEXT('drC',1,'description',          CALL MNC_CW_ADD_VATTR_TEXT('drC','description',
119       &       'r cell center separation',myThid)       &       'r cell center separation',myThid)
120          CALL MNC_CW_ADD_VATTR_TEXT('drF',1,'description',          CALL MNC_CW_ADD_VATTR_TEXT('drF','description',
121       &       'r cell face separation',myThid)       &       'r cell face separation',myThid)
122          CALL MNC_CW_ADD_VATTR_TEXT('saFac',1,'description',          CALL MNC_CW_ADD_VATTR_TEXT('saFac','description',
123       &       'shallow atmosphere factor',myThid)       &       'shallow atmosphere factor',myThid)
124          CALL MNC_CW_ADD_VATTR_TEXT('dxC',1,'description',          CALL MNC_CW_ADD_VATTR_TEXT('dxC','description',
125       &       'x cell center separation',myThid)       &       'x cell center separation',myThid)
126          CALL MNC_CW_ADD_VATTR_TEXT('dyC',1,'description',          CALL MNC_CW_ADD_VATTR_TEXT('dyC','description',
127       &       'y cell center separation',myThid)       &       'y cell center separation',myThid)
128          CALL MNC_CW_ADD_VATTR_TEXT('dxF',1,'description',          CALL MNC_CW_ADD_VATTR_TEXT('dxF','description',
129       &       'x cell face separation',myThid)       &       'x cell face separation',myThid)
130          CALL MNC_CW_ADD_VATTR_TEXT('dyF',1,'description',          CALL MNC_CW_ADD_VATTR_TEXT('dyF','description',
131       &     'y cell face separation',myThid)       &     'y cell face separation',myThid)
132          CALL MNC_CW_ADD_VATTR_TEXT('dxG',1,'description',          CALL MNC_CW_ADD_VATTR_TEXT('dxG','description',
133       &     'x cell face separation',myThid)       &     'x cell face separation',myThid)
134          CALL MNC_CW_ADD_VATTR_TEXT('dyG',1,'description',          CALL MNC_CW_ADD_VATTR_TEXT('dyG','description',
135       &       'y cell face separation',myThid)       &       'y cell face separation',myThid)
136          CALL MNC_CW_ADD_VATTR_TEXT('dxV',1,'description',          CALL MNC_CW_ADD_VATTR_TEXT('dxV','description',
137       &       'x v-velocity separation',myThid)       &       'x v-velocity separation',myThid)
138          CALL MNC_CW_ADD_VATTR_TEXT('dyU',1,'description',          CALL MNC_CW_ADD_VATTR_TEXT('dyU','description',
139       &       'y u-velocity separation',myThid)       &       'y u-velocity separation',myThid)
140          CALL MNC_CW_ADD_VATTR_TEXT('rA',1,'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',1,'description',          CALL MNC_CW_ADD_VATTR_TEXT('rAw','description',
143       &       '',myThid)       &       '',myThid)
144          CALL MNC_CW_ADD_VATTR_TEXT('rAs',1,'description',          CALL MNC_CW_ADD_VATTR_TEXT('rAs','description',
145       &       '',myThid)       &       '',myThid)
146          CALL MNC_CW_ADD_VATTR_TEXT('rAz',1,'description',          CALL MNC_CW_ADD_VATTR_TEXT('rAz','description',
147       &       '',myThid)       &       '',myThid)
148          CALL MNC_CW_ADD_VATTR_TEXT('fCori',1,'description',          CALL MNC_CW_ADD_VATTR_TEXT('fCori','description',
149       &       'Coriolis f',myThid)       &       'Coriolis f',myThid)
150          CALL MNC_CW_ADD_VATTR_TEXT('fCoriG',1,'description',          CALL MNC_CW_ADD_VATTR_TEXT('fCoriG','description',
151       &       'Coriolis f',myThid)       &       'Coriolis f',myThid)
152          CALL MNC_CW_ADD_VATTR_TEXT('R_low',1,'description',          CALL MNC_CW_ADD_VATTR_TEXT('R_low','description',
153       &       'base of fluid in r-units',myThid)       &       'base of fluid in r-units',myThid)
154          CALL MNC_CW_ADD_VATTR_TEXT('Ro_surf',1,'description',          CALL MNC_CW_ADD_VATTR_TEXT('Ro_surf','description',
155       &       'surface reference (at rest) position',myThid)       &       'surface reference (at rest) position',myThid)
156          CALL MNC_CW_ADD_VATTR_TEXT('Depth',1,'description',          CALL MNC_CW_ADD_VATTR_TEXT('Depth','description',
157       &       'fluid thickness in r coordinates (at rest)',myThid)       &       'fluid thickness in r coordinates (at rest)',myThid)
158          CALL MNC_CW_ADD_VATTR_TEXT('HFacC',1,'description',          CALL MNC_CW_ADD_VATTR_TEXT('HFacC','description',
159       &       'C-facing vertical fraction of open cell',myThid)       &       'C-facing vertical fraction of open cell',myThid)
160          CALL MNC_CW_ADD_VATTR_TEXT('HFacW',1,'description',          CALL MNC_CW_ADD_VATTR_TEXT('HFacW','description',
161       &       'W-facing vertical fraction of open cell',myThid)       &       'W-facing vertical fraction of open cell',myThid)
162          CALL MNC_CW_ADD_VATTR_TEXT('HFacS',1,'description',          CALL MNC_CW_ADD_VATTR_TEXT('HFacS','description',
163       &       'S-facing vertical fraction of open cell',myThid)       &       'S-facing vertical fraction of open cell',myThid)
164                    
165  C       Write the GRID.h variables to a file  C       Write the GRID.h variables to a file
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22