Parent Directory
|
Revision Log
|
Revision Graph
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 |