Parent Directory | Revision Log | Revision Graph
Added "JAM" routines for use with Artic network (Hyades cluster).
1 | C $Header: $ |
2 | |
3 | #include "CPP_EEOPTIONS.h" |
4 | |
5 | #undef USE_MPI_GSUM |
6 | #define USE_JAM_GSUM |
7 | |
8 | SUBROUTINE GLOBAL_SUM_R8_JAM( ans, myThid ) |
9 | |
10 | #ifdef ALLOW_MPI |
11 | #include "mpif.h" |
12 | #endif |
13 | |
14 | REAL*8 ans |
15 | INTEGER myThid |
16 | |
17 | #ifdef LETS_MAKE_JAM |
18 | |
19 | REAL*8 phi |
20 | INTEGER RC |
21 | |
22 | phi = ans |
23 | |
24 | #ifdef USE_MPI_GSUM |
25 | CALL MPI_Allreduce( phi, |
26 | & ans, |
27 | & 1, |
28 | & MPI_REAL8, |
29 | & MPI_SUM, |
30 | & MPI_COMM_WORLD, |
31 | & rc |
32 | & ) |
33 | #endif |
34 | |
35 | #ifdef USE_JAM_GSUM |
36 | C JAM global sum |
37 | CALL JAM_barrier_start( phi ) |
38 | CALL JAM_barrier_done( ans ) |
39 | #endif |
40 | |
41 | C WRITE(6,*) ' phi = ', phi, ' Sum = ', ans |
42 | C CALL MPI_Finalize( rc ) |
43 | C STOP |
44 | |
45 | #endif /* LETS_MAKE_JAM */ |
46 | |
47 | RETURN |
48 | END |
ViewVC Help | |
Powered by ViewVC 1.1.22 |