/[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.6 by mlosch, Fri Apr 27 13:58:14 2012 UTC revision 1.7 by mlosch, Wed May 9 18:33:38 2012 UTC
# Line 67  c     == end of interface == Line 67  c     == end of interface ==
67       &                      epsf, epsx, epsg,       &                      epsf, epsx, epsg,
68       &                      nupdate, eps       &                      nupdate, eps
69    
70          namelist /M1QN3/
71         &     coldStart
72    
73  c--   Preset the optimization parameters.  c--   Preset the optimization parameters.
74        optimcycle =  0        optimcycle =  0
75        nvars      =  0        nvars      =  0
# Line 82  c--   Preset the optimization parameters Line 85  c--   Preset the optimization parameters
85        ff         = 0.        ff         = 0.
86  cdfer      expId      = 'MIT_CE_000'  cdfer      expId      = 'MIT_CE_000'
87        yctrlid    = 'MIT_CE_000'        yctrlid    = 'MIT_CE_000'
88          coldStart  = .false.
89    
90        modeldataunit = 14        modeldataunit = 14
91        scrunit1      = 11        scrunit1      = 11
# Line 129  c--   Read optimization parameters from Line 133  c--   Read optimization parameters from
133    
134        rewind( scrunit1 )        rewind( scrunit1 )
135        read(unit = scrunit1, nml = optim)        read(unit = scrunit1, nml = optim)
136          read(unit = scrunit1, nml = m1qn3)
137        close( scrunit1 )        close( scrunit1 )
138        print*, ' OPTIM_READPARMS: Minimization options have been read.'        print*, ' OPTIM_READPARMS: Minimization options have been read.'
139    
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22