150 |
CALL MNC_CW_INIT(myThid, sNx,sNy, OLx,OLy, nSx,nSy, nPx,nPy, Nr) |
CALL MNC_CW_INIT(myThid, sNx,sNy, OLx,OLy, nSx,nSy, nPx,nPy, Nr) |
151 |
|
|
152 |
CALL MNC_CW_ADD_VNAME(myThid, 'iter', '-_-_--__-__t', 0,0) |
CALL MNC_CW_ADD_VNAME(myThid, 'iter', '-_-_--__-__t', 0,0) |
153 |
CALL MNC_CW_ADD_VATTR_TEXT(myThid, 'iter', 1, |
CALL MNC_CW_ADD_VATTR_TEXT(myThid,'iter',1,'units','s') |
|
& 'units', 's') |
|
|
CALL MNC_CW_ADD_VATTR_TEXT(myThid, 'iter', 1, |
|
|
& 'mitgcm_grid', '-_-_--__-__t') |
|
154 |
|
|
155 |
CALL MNC_CW_ADD_VNAME(myThid, 'U', 'U_xy_Hn__C__t', 4,5) |
CALL MNC_CW_ADD_VNAME(myThid, 'U', 'U_xy_Hn__C__t', 4,5) |
156 |
CALL MNC_CW_ADD_VATTR_TEXT(myThid, 'U', 1, |
CALL MNC_CW_ADD_VATTR_TEXT(myThid,'U',1,'units','m/s') |
157 |
& 'units', 'm/s') |
|
158 |
CALL MNC_CW_ADD_VATTR_TEXT(myThid, 'U', 1, |
CALL MNC_CW_ADD_VNAME(myThid, 'V', 'V_xy_Hn__C__t', 4,5) |
159 |
& 'mitgcm_grid', 'U_xy_Hn__C__t') |
CALL MNC_CW_ADD_VATTR_TEXT(myThid,'V',1,'units','m/s') |
160 |
|
|
161 |
|
CALL MNC_CW_ADD_VNAME(myThid, 'T', 'Cen_xy_Hn__C__t', 4,5) |
162 |
|
CALL MNC_CW_ADD_VATTR_TEXT(myThid,'T',1,'units','degC') |
163 |
|
CALL MNC_CW_ADD_VATTR_TEXT(myThid,'T',1,'long_name', |
164 |
|
& 'potential_temperature') |
165 |
|
|
166 |
|
CALL MNC_CW_ADD_VNAME(myThid, 'S', 'Cen_xy_Hn__C__t', 4,5) |
167 |
|
CALL MNC_CW_ADD_VATTR_TEXT(myThid,'T',1,'long_name', |
168 |
|
& 'salinity') |
169 |
|
|
170 |
|
CALL MNC_CW_ADD_VNAME(myThid, 'Eta', 'Cen_xy_Hn__-__t', 3,4) |
171 |
|
|
172 |
|
CALL MNC_CW_ADD_VNAME(myThid, 'W', 'Cen_xy_Hn__C__t', 4,5) |
173 |
|
CALL MNC_CW_ADD_VATTR_TEXT(myThid,'U',1,'units','m/s') |
174 |
#endif |
#endif |
175 |
|
|
176 |
RETURN |
RETURN |