/[MITgcm]/MITgcm/eesupp/src/exch_z_rx_cube.template
ViewVC logotype

Diff of /MITgcm/eesupp/src/exch_z_rx_cube.template

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

revision 1.1.2.2 by adcroft, Tue Apr 3 02:36:54 2001 UTC revision 1.1.2.3 by adcroft, Mon Apr 9 18:50:07 2001 UTC
# Line 81  C     theSimulationMode - Holds working Line 81  C     theSimulationMode - Holds working
81  C     theCornerMode     - Holds working copy of corner mode  C     theCornerMode     - Holds working copy of corner mode
82        INTEGER theSimulationMode        INTEGER theSimulationMode
83        INTEGER theCornerMode        INTEGER theCornerMode
84        INTEGER I,J,K        INTEGER I,J,K,repeat
85        INTEGER bl,bt,bn,bs,be,bw        INTEGER bl,bt,bn,bs,be,bw
86    
87  C     == Statement function ==  C     == Statement function ==
# Line 91  C     == Statement function == Line 91  C     == Statement function ==
91        theSimulationMode = simulationMode        theSimulationMode = simulationMode
92        theCornerMode     = cornerMode        theCornerMode     = cornerMode
93    
94          DO repeat=1,2
95    
96        DO bl = 1, 5, 2        DO bl = 1, 5, 2
97    
98         bt = bl         bt = bl
# Line 153  C Tile Even:Even-1 [get] [West<-East] Line 155  C Tile Even:Even-1 [get] [West<-East]
155    
156        ENDDO        ENDDO
157    
158          ENDDO
159    
160        RETURN        RETURN
161        END        END
Legend:
Removed from v.1.1.2.2  
changed lines
  Added in v.1.1.2.3
  ViewVC Help
Powered by ViewVC 1.1.22