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 |