/[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.9 by heimbach, Wed Aug 31 00:04:32 2005 UTC revision 1.12 by heimbach, Sun Apr 9 14:46:00 2006 UTC
# Line 131  CEOP Line 131  CEOP
131       &     'coordinates','XC YC RC iter', myThid)       &     'coordinates','XC YC RC iter', myThid)
132  #endif  #endif
133    
134    #ifdef ALLOW_DIFFKR_CONTROL
135          CALL MNC_CW_ADD_VNAME('adDiffkr', 'Cen_xy_Hn__C__t', 4,5, myThid)
136          CALL MNC_CW_ADD_VATTR_TEXT('adDiffkr',
137         & 'units','[cost]/[m^2/s]', myThid)
138          CALL MNC_CW_ADD_VATTR_TEXT('adDiffkr',
139         & 'long_name','adjoint vertical diffusion', myThid)
140          CALL MNC_CW_ADD_VATTR_TEXT('adDiffkr',
141         &     'coordinates','XC YC RC iter', myThid)
142    #endif
143    
144  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
145  c  c
146        CALL MNC_CW_ADD_VNAME('adustress', 'Cen_xy_Hn__-__t', 3,4, myThid)        CALL MNC_CW_ADD_VNAME('adustress', 'Cen_xy_Hn__-__t', 3,4, myThid)
# Line 217  c Line 227  c
227        CALL MNC_CW_ADD_VATTR_TEXT('adswdown',        CALL MNC_CW_ADD_VATTR_TEXT('adswdown',
228       &     'coordinates','XC YC RC iter', myThid)       &     'coordinates','XC YC RC iter', myThid)
229  # endif  # endif
230    # ifdef ALLOW_CLIMSST_RELAXATION
231          CALL MNC_CW_ADD_VNAME('adclimsst', 'Cen_xy_Hn__-__t', 3,4, myThid)
232          CALL MNC_CW_ADD_VATTR_TEXT('adclimsst',
233         &     'units','[cost]/[degC]', myThid)
234          CALL MNC_CW_ADD_VATTR_TEXT('adclimsst','long_name',
235         &     'adjoint sea surface temperature', myThid)
236          CALL MNC_CW_ADD_VATTR_TEXT('adclimsst',
237         &     'coordinates','XC YC RC iter', myThid)
238    # endif
239    # ifdef ALLOW_CLIMSSS_RELAXATION
240          CALL MNC_CW_ADD_VNAME('adclimsss', 'Cen_xy_Hn__-__t', 3,4, myThid)
241          CALL MNC_CW_ADD_VATTR_TEXT('adclimsss',
242         &     'units','[cost]/[ppt]', myThid)
243          CALL MNC_CW_ADD_VATTR_TEXT('adclimsss','long_name',
244         &     'adjoint sea surface salinity', myThid)
245          CALL MNC_CW_ADD_VATTR_TEXT('adclimsss',
246         &     'coordinates','XC YC RC iter', myThid)
247    # endif
248  c  c
249  #endif  #endif
250    
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22