/[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.1.2.1 by heimbach, Tue Feb 5 20:34:35 2002 UTC revision 1.5 by gforget, Tue Jun 2 14:49:13 2015 UTC
# Line 1  Line 1 
1    
   
2        subroutine optim_initmod(        subroutine optim_initmod(
3       I                    nn,       I                    nn,
4       O                    xx       O                    xx
# Line 32  c     == global variables == Line 31  c     == global variables ==
31    
32  #include "EEPARAMS.h"  #include "EEPARAMS.h"
33  #include "SIZE.h"  #include "SIZE.h"
   
 #include "ecco.h"  
34  #include "ctrl.h"  #include "ctrl.h"
35  #include "optim.h"  #include "optim.h"
36    
# Line 52  c--   Generate file name for the scaling Line 49  c--   Generate file name for the scaling
49  c--   contributions.  c--   contributions.
50        write(fname(1:80),'(80a)') ' '        write(fname(1:80),'(80a)') ' '
51        write(fname(1:80),'(4a,i10.10,a)')        write(fname(1:80),'(4a,i10.10,a)')
52       &  scalname(1:9),'_',expId,'.',optimcycle,'.data'       &  scalname(1:9),'_',yctrlid,'.',optimcycle,'.data'
53    
54  c--   Read the scaling for the control vector.  c--   Read the scaling for the control vector.
55    
Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22