/[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.2 by edhill, Sun Oct 10 06:08:48 2004 UTC revision 1.3 by heimbach, Tue Nov 16 05:42:11 2004 UTC
# Line 90  c      CALL MNC_CW_ADD_VATTR_TEXT('model Line 90  c      CALL MNC_CW_ADD_VATTR_TEXT('model
90        CALL MNC_CW_ADD_VATTR_TEXT('adW',        CALL MNC_CW_ADD_VATTR_TEXT('adW',
91       &     'coordinates','XC YC RC iter', myThid)       &     'coordinates','XC YC RC iter', myThid)
92    
93          CALL MNC_CW_ADD_VNAME('adSST', 'Cen_xy_Hn__-__t', 3,4, myThid)
94          CALL MNC_CW_ADD_VATTR_TEXT('adSST',
95         &     'units','[cost]/[degC]', myThid)
96          CALL MNC_CW_ADD_VATTR_TEXT('adSST','long_name',
97         &     'adj. sea_surface_temperature', myThid)
98          CALL MNC_CW_ADD_VATTR_TEXT('adSST',
99         &     'coordinates','XC YC RC iter', myThid)
100    
101          CALL MNC_CW_ADD_VNAME('adSSS', 'Cen_xy_Hn__-__t', 3,4, myThid)
102          CALL MNC_CW_ADD_VATTR_TEXT('adSSS',
103         &     'units','[cost]/[degC]', myThid)
104          CALL MNC_CW_ADD_VATTR_TEXT('adSSS','long_name',
105         &     'adj. sea_surface_temperature', myThid)
106          CALL MNC_CW_ADD_VATTR_TEXT('adSSS',
107         &     'coordinates','XC YC RC iter', myThid)
108    
109  C     Write coordinates to "adstate" file  C     Write coordinates to "adstate" file
110        CALL MNC_CW_SET_UDIM('adstate', 0, myThid)        CALL MNC_CW_SET_UDIM('adstate', 0, myThid)
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22