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

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

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

revision 1.7 by heimbach, Thu Nov 6 22:05:08 2003 UTC revision 1.8 by heimbach, Tue Nov 16 05:42:12 2004 UTC
# Line 32  c     == global variables == Line 32  c     == global variables ==
32  #include "GRID.h"  #include "GRID.h"
33    
34  #include "ctrl.h"  #include "ctrl.h"
   
 #ifdef ALLOW_ECCO_OPTIMIZATION  
35  #include "optim.h"  #include "optim.h"
 #endif  
36    
37  c     == routine arguments ==  c     == routine arguments ==
38    
# Line 45  c     == routine arguments == Line 42  c     == routine arguments ==
42    
43  c     == local variables ==  c     == local variables ==
44    
 #ifndef ALLOW_ECCO_OPTIMIZATION  
       integer optimcycle  
 #endif  
   
45        integer bi,bj        integer bi,bj
46        integer ip,jp        integer ip,jp
47        integer i,j,k        integer i,j,k
# Line 105  c     Initialise temporary file Line 98  c     Initialise temporary file
98           enddo           enddo
99        enddo        enddo
100    
 #ifndef ALLOW_ECCO_OPTIMIZATION  
       optimcycle = 0  
 #endif  
   
101  c--   Only the master thread will do I/O.  c--   Only the master thread will do I/O.
102        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
103    
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22