/[MITgcm]/MITgcm_contrib/mlosch/optim_m1qn3/optim_readparms.F
ViewVC logotype

Diff of /MITgcm_contrib/mlosch/optim_m1qn3/optim_readparms.F

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

revision 1.8 by mlosch, Thu May 10 10:25:14 2012 UTC revision 1.11 by mlosch, Mon May 9 09:37:17 2016 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4  c     Include ECCO_CPPOPTIONS because the ecco_ctrl,cost files  C     ECCO_CPPOPTIONS used to affect maxcvars and defined ALLOW_OBCS?_CONTROL
5  c     have headers with options for OBCS masks.  C#include "ECCO_CPPOPTIONS.h"
6  #include "ECCO_CPPOPTIONS.h"  C     now:
7    C     CTRL_OPTIONS affects maxcvars and may define ALLOW_OBCS?_CONTROL
8    #include "CTRL_OPTIONS.h"
9    
10        subroutine optim_readparms(        subroutine optim_readparms(
11       O                    nn, ff       O                    nn, ff
# Line 26  c     == global variables == Line 28  c     == global variables ==
28    
29  #include "EEPARAMS.h"  #include "EEPARAMS.h"
30  #include "SIZE.h"  #include "SIZE.h"
31    #if (defined (ALLOW_GENARR2D_CONTROL) || defined (ALLOW_GENARR3D_CONTROL) || defined (ALLOW_GENTIM2D_CONTROL))
32    # include "CTRL_SIZE.h"
33    #endif
34  #include "ctrl.h"  #include "ctrl.h"
35  #include "optim.h"  #include "optim.h"
36    
# Line 85  c--   Preset the optimization parameters Line 90  c--   Preset the optimization parameters
90        ff         = 0.        ff         = 0.
91  cdfer      expId      = 'MIT_CE_000'  cdfer      expId      = 'MIT_CE_000'
92        yctrlid    = 'MIT_CE_000'        yctrlid    = 'MIT_CE_000'
93          yctrlposunpack      = '.opt'
94          yctrlpospack        = '.opt'
95          ctrlname            = 'ecco_ctrl'
96          costname            = 'ecco_cost'
97          scalname            = ' '
98          maskname            = ' '
99          metaname            = ' '
100        coldStart  = .false.        coldStart  = .false.
101    
102        modeldataunit = 14        modeldataunit = 14
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22