220 |
c |
c |
221 |
#endif |
#endif |
222 |
|
|
223 |
|
#ifdef ALLOW_SEAICE |
224 |
|
c |
225 |
|
CALL MNC_CW_ADD_VNAME('adarea', 'Cen_xy_Hn__-__t', 3,4, myThid) |
226 |
|
CALL MNC_CW_ADD_VATTR_TEXT('adarea', |
227 |
|
& 'units','[cost]/[m^2/m^2]', myThid) |
228 |
|
CALL MNC_CW_ADD_VATTR_TEXT('adarea','long_name', |
229 |
|
& 'adjoint fractional ice-covered area', myThid) |
230 |
|
CALL MNC_CW_ADD_VATTR_TEXT('adarea', |
231 |
|
& 'coordinates','XC YC RC iter', myThid) |
232 |
|
c |
233 |
|
CALL MNC_CW_ADD_VNAME('adheff', 'Cen_xy_Hn__-__t', 3,4, myThid) |
234 |
|
CALL MNC_CW_ADD_VATTR_TEXT('adheff', |
235 |
|
& 'units','[cost]/[m]', myThid) |
236 |
|
CALL MNC_CW_ADD_VATTR_TEXT('adheff','long_name', |
237 |
|
& 'adjoint effective ice thickness', myThid) |
238 |
|
CALL MNC_CW_ADD_VATTR_TEXT('adheff', |
239 |
|
& 'coordinates','XC YC RC iter', myThid) |
240 |
|
c |
241 |
|
CALL MNC_CW_ADD_VNAME('adhsnow', 'Cen_xy_Hn__-__t', 3,4, myThid) |
242 |
|
CALL MNC_CW_ADD_VATTR_TEXT('adhsnow', |
243 |
|
& 'units','[cost]/[m]', myThid) |
244 |
|
CALL MNC_CW_ADD_VATTR_TEXT('adhsnow','long_name', |
245 |
|
& 'adjoint snow thickness', myThid) |
246 |
|
CALL MNC_CW_ADD_VATTR_TEXT('adhsnow', |
247 |
|
& 'coordinates','XC YC RC iter', myThid) |
248 |
|
c |
249 |
|
# ifdef ALLOW_DYNAMICS |
250 |
|
CALL MNC_CW_ADD_VNAME('aduice', 'U_xy_Hn__-__t', 3,4, myThid) |
251 |
|
CALL MNC_CW_ADD_VATTR_TEXT('aduice', |
252 |
|
& 'units','[cost]/[m/s]', myThid) |
253 |
|
CALL MNC_CW_ADD_VATTR_TEXT('aduice','long_name', |
254 |
|
& 'adjoint zonal ice velocity', myThid) |
255 |
|
CALL MNC_CW_ADD_VATTR_TEXT('aduice', |
256 |
|
& 'coordinates','XG YG RC iter', myThid) |
257 |
|
c |
258 |
|
CALL MNC_CW_ADD_VNAME('advice', 'V_xy_Hn__-__t', 3,4, myThid) |
259 |
|
CALL MNC_CW_ADD_VATTR_TEXT('advice', |
260 |
|
& 'units','[cost]/[m/s]', myThid) |
261 |
|
CALL MNC_CW_ADD_VATTR_TEXT('advice','long_name', |
262 |
|
& 'adjoint meridional ice velocity', myThid) |
263 |
|
CALL MNC_CW_ADD_VATTR_TEXT('advice', |
264 |
|
& 'coordinates','XG YG RC iter', myThid) |
265 |
|
# endif |
266 |
|
c |
267 |
|
#endif |
268 |
|
|
269 |
C Write coordinates to "adstate" file |
C Write coordinates to "adstate" file |
270 |
CALL MNC_CW_SET_UDIM('adstate', 0, myThid) |
CALL MNC_CW_SET_UDIM('adstate', 0, myThid) |