/[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.10 by mlosch, Tue Jun 2 16:17:08 2015 UTC revision 1.12 by mlosch, Thu May 3 11:26:05 2018 UTC
# Line 28  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 197  c--   Do some final printout. Line 200  c--   Do some final printout.
200         print*, ' expected cost function decrease   = ', ff-fmin         print*, ' expected cost function decrease   = ', ff-fmin
201        endif        endif
202        print '(a,4a,i4.4)',        print '(a,4a,i4.4)',
203       &        ' Data will be read from the following file: ',       &     '  Data will be read from the following file: ',
204       &     ctrlname,'_',yctrlid(1:10),'.opt', optimcycle       &     ctrlname,'_',yctrlid(1:10),'.opt', optimcycle
205        print*        print*
206    
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22