/[MITgcm]/MITgcm/pkg/ctrl/ctrl_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_readparms.F

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

revision 1.2 by heimbach, Mon Jun 23 22:29:05 2003 UTC revision 1.7 by heimbach, Thu Nov 11 06:28:33 2004 UTC
# Line 1  Line 1 
1    C
2  C $Header$  C $Header$
3    C $Name$
4    
5    #include "AD_CONFIG.h"
6  #include "CTRL_CPPOPTIONS.h"  #include "CTRL_CPPOPTIONS.h"
7    
8    
# Line 104  c--   Read the namelist input. Line 107  c--   Read the namelist input.
107       &  xx_hfacc_file,       &  xx_hfacc_file,
108       &  xx_efluxy_file,       &  xx_efluxy_file,
109       &  xx_efluxp_file,       &  xx_efluxp_file,
110       &  xx_bottomdrag_file       &  xx_bottomdrag_file,
111         &  doInitXX
112    
113        namelist /ctrl_packnames/        namelist /ctrl_packnames/
114       &  yadmark, yctrlid,       &  yadmark, yctrlid, yctrlposunpack, yctrlpospack,
115       &  ctrlname, costname, scalname, maskname, metaname       &  ctrlname, costname, scalname, maskname, metaname
116    
117        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
# Line 173  c--     Set default values. Line 177  c--     Set default values.
177          xx_efluxp_file      = ' '          xx_efluxp_file      = ' '
178          xx_bottomdrag_file  = ' '          xx_bottomdrag_file  = ' '
179    
180  #ifndef ALLOW_TANGENTLINEAR_RUN          doInitXX            = .TRUE.
181          yadmark             = 'ad'  
182  #else  #ifdef ALLOW_TANGENTLINEAR_RUN
183            yadprefix           = 'g_'
184          yadmark             = 'g_'          yadmark             = 'g_'
185    #else
186            yadprefix           = 'ad'
187            yadmark             = 'ad'
188  #endif  #endif
189          yctrlid             = 'MIT_CE_000'          yctrlid             = 'MIT_CE_000'
190            yctrlposunpack      = '.opt'
191            yctrlpospack        = '.opt'
192          ctrlname            = ' '          ctrlname            = ' '
193          costname            = ' '          costname            = ' '
194          scalname            = ' '          scalname            = ' '

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.7

  ViewVC Help
Powered by ViewVC 1.1.22