/[MITgcm]/MITgcm/pkg/mnc/mnc_cw_write_grid_info.F
ViewVC logotype

Diff of /MITgcm/pkg/mnc/mnc_cw_write_grid_info.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.8 by edhill, Fri Apr 2 16:12:48 2004 UTC revision 1.9 by edhill, Wed Sep 22 21:19:44 2004 UTC
# Line 71  C     Create MNC definitions for GRID.h Line 71  C     Create MNC definitions for GRID.h
71        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)
72        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)
73    
74        CALL MNC_CW_ADD_VATTR_TEXT('rC',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('rC','description',
75       &     'r of cell center',myThid)       &     'r of cell center',myThid)
76        CALL MNC_CW_ADD_VATTR_TEXT('rF',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('rF','description',
77       &     'r of cell face',myThid)       &     'r of cell face',myThid)
78        CALL MNC_CW_ADD_VATTR_TEXT('drC',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('drC','description',
79       &     'r cell center separation',myThid)       &     'r cell center separation',myThid)
80        CALL MNC_CW_ADD_VATTR_TEXT('drF',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('drF','description',
81       &     'r cell face separation',myThid)       &     'r cell face separation',myThid)
82        CALL MNC_CW_ADD_VATTR_TEXT('saFac',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('saFac','description',
83       &     'shallow atmosphere factor',myThid)       &     'shallow atmosphere factor',myThid)
84        CALL MNC_CW_ADD_VATTR_TEXT('xC',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('xC','description',
85       &     'x of cell center',myThid)       &     'x of cell center',myThid)
86        CALL MNC_CW_ADD_VATTR_TEXT('yC',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('yC','description',
87       &     'y of cell center',myThid)       &     'y of cell center',myThid)
88        CALL MNC_CW_ADD_VATTR_TEXT('xG',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('xG','description',
89       &     'x of cell corner',myThid)       &     'x of cell corner',myThid)
90        CALL MNC_CW_ADD_VATTR_TEXT('yG',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('yG','description',
91       &     'y of cell corner',myThid)       &     'y of cell corner',myThid)
92        CALL MNC_CW_ADD_VATTR_TEXT('dxC',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('dxC','description',
93       &     'x cell center separation',myThid)       &     'x cell center separation',myThid)
94        CALL MNC_CW_ADD_VATTR_TEXT('dyC',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('dyC','description',
95       &     'y cell center separation',myThid)       &     'y cell center separation',myThid)
96        CALL MNC_CW_ADD_VATTR_TEXT('dxF',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('dxF','description',
97       &     'x cell face separation',myThid)       &     'x cell face separation',myThid)
98        CALL MNC_CW_ADD_VATTR_TEXT('dyF',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('dyF','description',
99       &     'y cell face separation',myThid)       &     'y cell face separation',myThid)
100        CALL MNC_CW_ADD_VATTR_TEXT('dxG',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('dxG','description',
101       &     'x cell face separation',myThid)       &     'x cell face separation',myThid)
102        CALL MNC_CW_ADD_VATTR_TEXT('dyG',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('dyG','description',
103       &     'y cell face separation',myThid)       &     'y cell face separation',myThid)
104        CALL MNC_CW_ADD_VATTR_TEXT('dxV',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('dxV','description',
105       &     'x v-velocity separation',myThid)       &     'x v-velocity separation',myThid)
106        CALL MNC_CW_ADD_VATTR_TEXT('dyU',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('dyU','description',
107       &     'y u-velocity separation',myThid)       &     'y u-velocity separation',myThid)
108        CALL MNC_CW_ADD_VATTR_TEXT('rA',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('rA','description',
109       &     'r-face area',myThid)       &     'r-face area',myThid)
110        CALL MNC_CW_ADD_VATTR_TEXT('rAw',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('rAw','description',
111       &     '',myThid)       &     '',myThid)
112        CALL MNC_CW_ADD_VATTR_TEXT('rAs',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('rAs','description',
113       &     '',myThid)       &     '',myThid)
114        CALL MNC_CW_ADD_VATTR_TEXT('rAz',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('rAz','description',
115       &     '',myThid)       &     '',myThid)
116        CALL MNC_CW_ADD_VATTR_TEXT('fCori',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('fCori','description',
117       &     'Coriolis f',myThid)       &     'Coriolis f',myThid)
118        CALL MNC_CW_ADD_VATTR_TEXT('fCoriG',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('fCoriG','description',
119       &     'Coriolis f',myThid)       &     'Coriolis f',myThid)
120        CALL MNC_CW_ADD_VATTR_TEXT('R_low',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('R_low','description',
121       &     'base of fluid in r-units',myThid)       &     'base of fluid in r-units',myThid)
122        CALL MNC_CW_ADD_VATTR_TEXT('Ro_surf',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('Ro_surf','description',
123       &     'surface reference (at rest,myThid) position',myThid)       &     'surface reference (at rest,myThid) position',myThid)
124        CALL MNC_CW_ADD_VATTR_TEXT('HFacC',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('HFacC','description',
125       &     'C-facing vertical fraction of open cell',myThid)       &     'C-facing vertical fraction of open cell',myThid)
126        CALL MNC_CW_ADD_VATTR_TEXT('HFacW',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('HFacW','description',
127       &     'W-facing vertical fraction of open cell',myThid)       &     'W-facing vertical fraction of open cell',myThid)
128        CALL MNC_CW_ADD_VATTR_TEXT('HFacS',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('HFacS','description',
129       &     'S-facing vertical fraction of open cell',myThid)       &     'S-facing vertical fraction of open cell',myThid)
130    
131  C     Write the GRID.h variables  C     Write the GRID.h variables
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22