Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
--- MITgcm_contrib/cg2d_bench/cg2d.F 2006/05/12 22:21:21 1.2
+++ MITgcm_contrib/cg2d_bench/cg2d.F 2006/05/31 16:27:25 1.3
@@ -1,4 +1,4 @@
-C $Id: cg2d.F,v 1.2 2006/05/12 22:21:21 ce107 Exp $
+C $Id: cg2d.F,v 1.3 2006/05/31 16:27:25 ce107 Exp $
SUBROUTINE CG2D
C /==========================================================\
C | SUBROUTINE CG2D |
@@ -146,16 +146,9 @@
C-- Ten extra exchanges
#ifdef TEN_EXTRA_EXCHS
- 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 )
- CALL EXCH_XY_R8( cg2d_s )
- CALL EXCH_XY_R8( cg2d_s )
- CALL EXCH_XY_R8( cg2d_s )
+ DO J=1,10
+ CALL EXCH_XY_R8( cg2d_s )
+ ENDDO
#endif
C== Evaluate laplace operator on conjugate gradient vector
@@ -175,106 +168,9 @@
#ifdef HUNDRED_EXTRA_SUMS
C-- Hundred extra global sums
- 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 )
- CALL GSUM_R8( temp, alpha )
- CALL GSUM_R8( temp, alpha )
- CALL GSUM_R8( temp, alpha )
+ DO J=1,100
+ CALL GSUM_R8( temp, alpha )
+ ENDDO
#endif
alpha = temp
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |