/[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.15 by gforget, Sat Feb 2 02:35:26 2008 UTC
# Line 4  C $Name$ Line 4  C $Name$
4  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
5    
6  #include "AUTODIFF_OPTIONS.h"  #include "AUTODIFF_OPTIONS.h"
7    #ifdef ALLOW_EXF
8    # include "EXF_OPTIONS.h"
9    #endif
10    #ifdef ALLOW_SEAICE
11    # include "SEAICE_OPTIONS.h"
12    #endif
13    
14  CBOP  CBOP
15  C     !ROUTINE: AUTODIFF_INI_MODEL_IO  C     !ROUTINE: AUTODIFF_INI_MODEL_IO
# Line 131  CEOP Line 137  CEOP
137       &     'coordinates','XC YC RC iter', myThid)       &     'coordinates','XC YC RC iter', myThid)
138  #endif  #endif
139    
140    #ifdef ALLOW_DIFFKR_CONTROL
141          CALL MNC_CW_ADD_VNAME('adDiffkr', 'Cen_xy_Hn__C__t', 4,5, myThid)
142          CALL MNC_CW_ADD_VATTR_TEXT('adDiffkr',
143         & 'units','[cost]/[m^2/s]', myThid)
144          CALL MNC_CW_ADD_VATTR_TEXT('adDiffkr',
145         & 'long_name','adjoint vertical diffusion', myThid)
146          CALL MNC_CW_ADD_VATTR_TEXT('adDiffkr',
147         &     'coordinates','XC YC RC iter', myThid)
148    #endif
149    
150    #ifdef ALLOW_KAPGM_CONTROL
151          CALL MNC_CW_ADD_VNAME('adkapgm', 'Cen_xy_Hn__C__t', 4,5, myThid)
152          CALL MNC_CW_ADD_VATTR_TEXT('adkapgm',
153         & 'units','[cost]/[m^2/s]', myThid)
154          CALL MNC_CW_ADD_VATTR_TEXT('adkapgm',
155         & 'long_name','adjoint isopycnal diffusion', myThid)
156          CALL MNC_CW_ADD_VATTR_TEXT('adkapgm',
157         &     'coordinates','XC YC RC iter', myThid)
158    #endif
159    
160    #ifdef ALLOW_KAPREDI_CONTROL
161          CALL MNC_CW_ADD_VNAME('adkapredi', 'Cen_xy_Hn__C__t', 4,5, myThid)
162          CALL MNC_CW_ADD_VATTR_TEXT('adkapredi',
163         & 'units','[cost]/[m^2/s]', myThid)
164          CALL MNC_CW_ADD_VATTR_TEXT('adkapredi',
165         & 'long_name','adjoint isopycnal diffusion', myThid)
166          CALL MNC_CW_ADD_VATTR_TEXT('adkapredi',
167         &     'coordinates','XC YC RC iter', myThid)
168    #endif
169    
170  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
171  c  c
172        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 253  c
253        CALL MNC_CW_ADD_VATTR_TEXT('adswdown',        CALL MNC_CW_ADD_VATTR_TEXT('adswdown',
254       &     'coordinates','XC YC RC iter', myThid)       &     'coordinates','XC YC RC iter', myThid)
255  # endif  # endif
256    # ifdef ALLOW_CLIMSST_RELAXATION
257          CALL MNC_CW_ADD_VNAME('adclimsst', 'Cen_xy_Hn__-__t', 3,4, myThid)
258          CALL MNC_CW_ADD_VATTR_TEXT('adclimsst',
259         &     'units','[cost]/[degC]', myThid)
260          CALL MNC_CW_ADD_VATTR_TEXT('adclimsst','long_name',
261         &     'adjoint sea surface temperature', myThid)
262          CALL MNC_CW_ADD_VATTR_TEXT('adclimsst',
263         &     'coordinates','XC YC RC iter', myThid)
264    # endif
265    # ifdef ALLOW_CLIMSSS_RELAXATION
266          CALL MNC_CW_ADD_VNAME('adclimsss', 'Cen_xy_Hn__-__t', 3,4, myThid)
267          CALL MNC_CW_ADD_VATTR_TEXT('adclimsss',
268         &     'units','[cost]/[ppt]', myThid)
269          CALL MNC_CW_ADD_VATTR_TEXT('adclimsss','long_name',
270         &     'adjoint sea surface salinity', myThid)
271          CALL MNC_CW_ADD_VATTR_TEXT('adclimsss',
272         &     'coordinates','XC YC RC iter', myThid)
273    # endif
274  c  c
275  #endif  #endif
276    
# Line 246  c Line 300  c
300        CALL MNC_CW_ADD_VATTR_TEXT('adhsnow',        CALL MNC_CW_ADD_VATTR_TEXT('adhsnow',
301       &     'coordinates','XC YC RC iter', myThid)       &     'coordinates','XC YC RC iter', myThid)
302  c  c
303  # ifdef ALLOW_DYNAMICS  # ifdef SEAICE_ALLOW_DYNAMICS
304        CALL MNC_CW_ADD_VNAME('aduice', 'U_xy_Hn__-__t', 3,4, myThid)        CALL MNC_CW_ADD_VNAME('aduice', 'U_xy_Hn__-__t', 3,4, myThid)
305        CALL MNC_CW_ADD_VATTR_TEXT('aduice',        CALL MNC_CW_ADD_VATTR_TEXT('aduice',
306       &     'units','[cost]/[m/s]', myThid)       &     'units','[cost]/[m/s]', myThid)
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22