/[MITgcm]/MITgcm/pkg/autodiff/autodiff_ini_model_io.F
ViewVC logotype

Diff of /MITgcm/pkg/autodiff/autodiff_ini_model_io.F

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

revision 1.7 by heimbach, Tue Aug 30 21:38:55 2005 UTC revision 1.8 by heimbach, Tue Aug 30 22:28:50 2005 UTC
# Line 220  c Line 220  c
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)
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22