/[MITgcm]/MITgcm/pkg/ctrl/ctrl_set_fname.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_set_fname.F

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

revision 1.6 by heimbach, Thu Oct 30 19:09:05 2003 UTC revision 1.8 by heimbach, Tue Nov 16 05:42:12 2004 UTC
# Line 26  c     == global variables == Line 26  c     == global variables ==
26  #include "PARAMS.h"  #include "PARAMS.h"
27  #include "GRID.h"  #include "GRID.h"
28    
 #include "ecco.h"  
29  #include "ctrl.h"  #include "ctrl.h"
 #include "cost.h"  
   
 #ifdef ALLOW_ECCO_OPTIMIZATION  
30  #include "optim.h"  #include "optim.h"
 #endif  
31    
32  c     == routine arguments ==  c     == routine arguments ==
33    
# Line 42  c     == routine arguments == Line 37  c     == routine arguments ==
37    
38  c     == local variables ==  c     == local variables ==
39    
 #ifndef ALLOW_ECCO_OPTIMIZATION  
       integer optimcycle  
 #endif  
   
40        integer ii        integer ii
41        integer il        integer il
42    
# Line 56  c     == external == Line 47  c     == external ==
47    
48  c     == end of interface ==  c     == end of interface ==
49    
 #ifndef ALLOW_ECCO_OPTIMIZATION  
       optimcycle = 0  
 #endif  
   
50  c--   Only the master thread will do I/O.  c--   Only the master thread will do I/O.
51        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
52    
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22