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

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

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

revision 1.8 by heimbach, Fri May 28 16:04:42 2004 UTC revision 1.9 by heimbach, Tue Nov 16 05:42:12 2004 UTC
# Line 31  c     == global variables == Line 31  c     == global variables ==
31  #include "GRID.h"  #include "GRID.h"
32    
33  #include "ctrl.h"  #include "ctrl.h"
   
 #ifdef ALLOW_ECCO_OPTIMIZATION  
34  #include "optim.h"  #include "optim.h"
 #endif  
35    
36  c     == routine arguments ==  c     == routine arguments ==
37    
# Line 49  c     == routine arguments == Line 46  c     == routine arguments ==
46    
47  c     == local variables ==  c     == local variables ==
48    
 #ifndef ALLOW_ECCO_OPTIMIZATION  
       integer optimcycle  
 #endif  
   
49        integer bi,bj        integer bi,bj
50        integer ip,jp        integer ip,jp
51        integer i,j,k        integer i,j,k
# Line 130  c     Initialise temporary file Line 123  c     Initialise temporary file
123           enddo           enddo
124        enddo        enddo
125    
 #ifndef ALLOW_ECCO_OPTIMIZATION  
       optimcycle = 0  
 #endif  
   
126  c--   Only the master thread will do I/O.  c--   Only the master thread will do I/O.
127        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
128    
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22