/[MITgcm]/MITgcm/eesupp/src/gsum_jam.F
ViewVC logotype

Annotation of /MITgcm/eesupp/src/gsum_jam.F

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

Revision 1.3 - (hide annotations) (download)
Sun Feb 4 14:38:43 2001 UTC (23 years, 3 months ago) by cnh
Branch: MAIN
CVS Tags: checkpoint40pre3, checkpoint40pre1, checkpoint40pre7, checkpoint40pre6, checkpoint40pre9, checkpoint40pre8, checkpoint38, checkpoint40pre2, checkpoint40pre4, pre38tag1, c37_adj, pre38-close, checkpoint39, checkpoint37, checkpoint36, checkpoint35, checkpoint40pre5, checkpoint40
Branch point for: pre38
Changes since 1.2: +2 -1 lines 
Made sure each .F and .h file had
the CVS keywords Header and Name at its start.
Most had header but very few currently have Name, so
lots of changes!
1 cnh 1.3 C $Header: /u/gcmpack/models/MITgcmUV/eesupp/src/gsum_jam.F,v 1.2 2000/03/14 20:28:12 adcroft Exp $
2     C $Name: $
3 adcroft 1.1
4     #include "CPP_EEOPTIONS.h"
5    
6     #undef USE_MPI_GSUM
7     #define USE_JAM_GSUM
8    
9     SUBROUTINE GLOBAL_SUM_R8_JAM( ans, myThid )
10    
11     #ifdef ALLOW_MPI
12     #include "mpif.h"
13     #endif
14    
15 adcroft 1.2 Real*8 ans
16 adcroft 1.1 INTEGER myThid
17    
18     #ifdef LETS_MAKE_JAM
19    
20 adcroft 1.2 Real*8 phi
21 adcroft 1.1 INTEGER RC
22    
23     phi = ans
24    
25     #ifdef USE_MPI_GSUM
26     CALL MPI_Allreduce( phi,
27     & ans,
28     & 1,
29     & MPI_REAL8,
30     & MPI_SUM,
31     & MPI_COMM_WORLD,
32     & rc
33     & )
34     #endif
35    
36     #ifdef USE_JAM_GSUM
37     C JAM global sum
38     CALL JAM_barrier_start( phi )
39     CALL JAM_barrier_done( ans )
40     #endif
41    
42     C WRITE(6,*) ' phi = ', phi, ' Sum = ', ans
43     C CALL MPI_Finalize( rc )
44     C STOP
45    
46     #endif /* LETS_MAKE_JAM */
47    
48     RETURN
49     END
  ViewVC Help
Powered by ViewVC 1.1.22