Parent Directory | Revision Log | Revision Graph
Added "JAM" routines for use with Artic network (Hyades cluster).
1 | adcroft | 1.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 |