/[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.7 by heimbach, Thu Nov 11 06:28:33 2004 UTC revision 1.11 by heimbach, Wed Jan 12 23:39:39 2005 UTC
# Line 34  c     == global variables == Line 34  c     == global variables ==
34  #ifdef ALLOW_OBCS_CONTROL  #ifdef ALLOW_OBCS_CONTROL
35  # include "OBCS.h"  # include "OBCS.h"
36  #endif  #endif
 #ifdef ALLOW_ECCO_OPTIMIZATION  
 # include "optim.h"  
 #endif  
37    
38  c     == routine arguments ==  c     == routine arguments ==
39    
# Line 108  c--   Read the namelist input. Line 105  c--   Read the namelist input.
105       &  xx_efluxy_file,       &  xx_efluxy_file,
106       &  xx_efluxp_file,       &  xx_efluxp_file,
107       &  xx_bottomdrag_file,       &  xx_bottomdrag_file,
108       &  doInitXX       &  doInitXX,
109         &  doPackDiag,
110         &  doZscaleUnpack,
111         &  doZscalePack
112    
113    
114        namelist /ctrl_packnames/        namelist /ctrl_packnames/
115       &  yadmark, yctrlid, yctrlposunpack, yctrlpospack,       &  yadmark, yctrlid, yctrlposunpack, yctrlpospack,
# Line 117  c--   Read the namelist input. Line 118  c--   Read the namelist input.
118        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
119    
120  c--     Set default values.  c--     Set default values.
121            doInitXX            = .TRUE.
122    #ifdef ALLOW_ADMTLM
123            doAdmTlm            = .TRUE.
124    #else
125            doAdmTlm            = .FALSE.
126    #endif
127            doPackDiag          = .FALSE.
128            doZscaleUnpack      = .FALSE.
129            doZscalePack        = .FALSE.
130    
131          xx_theta_file      = ' '          xx_theta_file      = ' '
132          xx_salt_file       = ' '          xx_salt_file       = ' '
133          xx_hfluxstartdate1 =   0          xx_hfluxstartdate1 =   0
# Line 177  c--     Set default values. Line 188  c--     Set default values.
188          xx_efluxp_file      = ' '          xx_efluxp_file      = ' '
189          xx_bottomdrag_file  = ' '          xx_bottomdrag_file  = ' '
190    
         doInitXX            = .TRUE.  
   
191  #ifdef ALLOW_TANGENTLINEAR_RUN  #ifdef ALLOW_TANGENTLINEAR_RUN
192          yadprefix           = 'g_'          yadprefix           = 'g_'
193          yadmark             = 'g_'          yadmark             = 'g_'
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22