/[MITgcm]/MITgcm/optim/optim_initmod.F
ViewVC logotype

Diff of /MITgcm/optim/optim_initmod.F

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

revision 1.2 by heimbach, Fri Nov 15 04:03:25 2002 UTC revision 1.3 by dfer, Tue Jan 15 16:36:32 2008 UTC
# Line 33  c     == global variables == Line 33  c     == global variables ==
33  #include "EEPARAMS.h"  #include "EEPARAMS.h"
34  #include "SIZE.h"  #include "SIZE.h"
35    
 #include "ecco.h"  
36  #include "ctrl.h"  #include "ctrl.h"
37  #include "optim.h"  #include "optim.h"
38    
# Line 52  c--   Generate file name for the scaling Line 51  c--   Generate file name for the scaling
51  c--   contributions.  c--   contributions.
52        write(fname(1:80),'(80a)') ' '        write(fname(1:80),'(80a)') ' '
53        write(fname(1:80),'(4a,i10.10,a)')        write(fname(1:80),'(4a,i10.10,a)')
54       &  scalname(1:9),'_',expId,'.',optimcycle,'.data'       &  scalname(1:9),'_',yctrlid,'.',optimcycle,'.data'
55    
56  c--   Read the scaling for the control vector.  c--   Read the scaling for the control vector.
57    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22