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 |