/[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.13 by heimbach, Wed Feb 7 00:00:32 2007 UTC revision 1.14 by heimbach, Thu Feb 22 17:17:06 2007 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 284  c Line 290  c
290        CALL MNC_CW_ADD_VATTR_TEXT('adhsnow',        CALL MNC_CW_ADD_VATTR_TEXT('adhsnow',
291       &     'coordinates','XC YC RC iter', myThid)       &     'coordinates','XC YC RC iter', myThid)
292  c  c
293  # ifdef ALLOW_DYNAMICS  # ifdef SEAICE_ALLOW_DYNAMICS
294        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)
295        CALL MNC_CW_ADD_VATTR_TEXT('aduice',        CALL MNC_CW_ADD_VATTR_TEXT('aduice',
296       &     'units','[cost]/[m/s]', myThid)       &     'units','[cost]/[m/s]', myThid)
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22