/[MITgcm]/MITgcm_contrib/cg2d_bench/cg2d.F
ViewVC logotype

Diff of /MITgcm_contrib/cg2d_bench/cg2d.F

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

revision 1.2 by ce107, Fri May 12 22:21:21 2006 UTC revision 1.3 by ce107, Wed May 31 16:27:25 2006 UTC
# Line 146  C--    processes. Line 146  C--    processes.
146    
147  C--    Ten extra exchanges  C--    Ten extra exchanges
148  #ifdef TEN_EXTRA_EXCHS  #ifdef TEN_EXTRA_EXCHS
149         CALL EXCH_XY_R8( cg2d_s )         DO J=1,10
150         CALL EXCH_XY_R8( cg2d_s )            CALL EXCH_XY_R8( cg2d_s )
151         CALL EXCH_XY_R8( cg2d_s )         ENDDO
        CALL EXCH_XY_R8( cg2d_s )  
        CALL EXCH_XY_R8( cg2d_s )  
        CALL EXCH_XY_R8( cg2d_s )  
        CALL EXCH_XY_R8( cg2d_s )  
        CALL EXCH_XY_R8( cg2d_s )  
        CALL EXCH_XY_R8( cg2d_s )  
        CALL EXCH_XY_R8( cg2d_s )  
152  #endif  #endif
153    
154  C==    Evaluate laplace operator on conjugate gradient vector  C==    Evaluate laplace operator on conjugate gradient vector
# Line 175  C==    q = A.s Line 168  C==    q = A.s
168    
169  #ifdef HUNDRED_EXTRA_SUMS  #ifdef HUNDRED_EXTRA_SUMS
170  C--    Hundred extra global sums  C--    Hundred extra global sums
171         CALL GSUM_R8( temp, alpha )         DO J=1,100
172         CALL GSUM_R8( temp, alpha )            CALL GSUM_R8( temp, alpha )
173         CALL GSUM_R8( temp, alpha )         ENDDO
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
        CALL GSUM_R8( temp, alpha )  
174  #endif  #endif
175    
176         alpha = temp         alpha = temp

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.22