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

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

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

Revision 1.3 - (show 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 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
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 Real*8 ans
16 INTEGER myThid
17
18 #ifdef LETS_MAKE_JAM
19
20 Real*8 phi
21 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