/[MITgcm]/MITgcm/model/src/cg2d.F
ViewVC logotype

Diff of /MITgcm/model/src/cg2d.F

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

revision 1.30 by adcroft, Fri Mar 9 20:45:09 2001 UTC revision 1.30.2.1 by adcroft, Fri Mar 23 20:44:53 2001 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6    #define USE_OPTIMIZED_OVERLAPS
7    
8        SUBROUTINE CG2D(          SUBROUTINE CG2D(  
9       I                cg2d_b,       I                cg2d_b,
10       U                cg2d_x,       U                cg2d_x,
# Line 39  C     === Global data === Line 41  C     === Global data ===
41  #include "EEPARAMS.h"  #include "EEPARAMS.h"
42  #include "PARAMS.h"  #include "PARAMS.h"
43  #include "GRID.h"  #include "GRID.h"
44  #include "CG2D_INTERNAL.h"  #include "CG2D.h"
45  #include "SURFACE.h"  #include "SURFACE.h"
46    
47  C     === Routine arguments ===  C     === Routine arguments ===
# Line 184  C     _EXCH_XY_R8( cg2d_r, myThid ) Line 186  C     _EXCH_XY_R8( cg2d_r, myThid )
186  #ifdef LETS_MAKE_JAM  #ifdef LETS_MAKE_JAM
187        CALL EXCH_XY_O1_R8_JAM( cg2d_r )        CALL EXCH_XY_O1_R8_JAM( cg2d_r )
188  #else  #else
189    #ifdef USE_OPTIMIZED_OVERLAPS
190         OLw        = 1         OLw        = 1
191         OLe        = 1         OLe        = 1
192         OLn        = 1         OLn        = 1
193         OLs        = 1         OLs        = 1
194    #else
195           OLw        = Olx
196           OLe        = Olx
197           OLn        = Oly
198           OLs        = Oly
199    #endif
200         exchWidthX = 1         exchWidthX = 1
201         exchWidthY = 1         exchWidthY = 1
202         myNz       = 1         myNz       = 1
# Line 200  C     _EXCH_XY_R8( cg2d_s, myThid ) Line 209  C     _EXCH_XY_R8( cg2d_s, myThid )
209  #ifdef LETS_MAKE_JAM  #ifdef LETS_MAKE_JAM
210        CALL EXCH_XY_O1_R8_JAM( cg2d_s )        CALL EXCH_XY_O1_R8_JAM( cg2d_s )
211  #else  #else
212    #ifdef USE_OPTIMIZED_OVERLAPS
213         OLw        = 1         OLw        = 1
214         OLe        = 1         OLe        = 1
215         OLn        = 1         OLn        = 1
216         OLs        = 1         OLs        = 1
217    #else
218           OLw        = Olx
219           OLe        = Olx
220           OLn        = Oly
221           OLs        = Oly
222    #endif
223         exchWidthX = 1         exchWidthX = 1
224         exchWidthY = 1         exchWidthY = 1
225         myNz       = 1         myNz       = 1
# Line 287  C      _EXCH_XY_R8( cg2d_s, myThid ) Line 303  C      _EXCH_XY_R8( cg2d_s, myThid )
303  #ifdef LETS_MAKE_JAM  #ifdef LETS_MAKE_JAM
304        CALL EXCH_XY_O1_R8_JAM( cg2d_s )        CALL EXCH_XY_O1_R8_JAM( cg2d_s )
305  #else  #else
306    #ifdef USE_OPTIMIZED_OVERLAPS
307         OLw        = 1         OLw        = 1
308         OLe        = 1         OLe        = 1
309         OLn        = 1         OLn        = 1
310         OLs        = 1         OLs        = 1
311    #else
312           OLw        = Olx
313           OLe        = Olx
314           OLn        = Oly
315           OLs        = Oly
316    #endif
317         exchWidthX = 1         exchWidthX = 1
318         exchWidthY = 1         exchWidthY = 1
319         myNz       = 1         myNz       = 1
# Line 356  C      _EXCH_XY_R8(cg2d_r, myThid ) Line 379  C      _EXCH_XY_R8(cg2d_r, myThid )
379  #ifdef LETS_MAKE_JAM  #ifdef LETS_MAKE_JAM
380        CALL EXCH_XY_O1_R8_JAM( cg2d_r )        CALL EXCH_XY_O1_R8_JAM( cg2d_r )
381  #else  #else
382    #ifdef USE_OPTIMIZED_OVERLAPS
383         OLw        = 1         OLw        = 1
384         OLe        = 1         OLe        = 1
385         OLn        = 1         OLn        = 1
386         OLs        = 1         OLs        = 1
387    #else
388           OLw        = Olx
389           OLe        = Olx
390           OLn        = Oly
391           OLs        = Oly
392    #endif
393         exchWidthX = 1         exchWidthX = 1
394         exchWidthY = 1         exchWidthY = 1
395         myNz       = 1         myNz       = 1
Legend:
Removed from v.1.30  
changed lines
  Added in v.1.30.2.1
  ViewVC Help
Powered by ViewVC 1.1.22