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

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

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

revision 1.3 by cnh, Sun Feb 4 14:38:43 2001 UTC revision 1.4 by cnh, Fri Sep 21 03:54:35 2001 UTC
# Line 6  C $Name$ Line 6  C $Name$
6  #undef  USE_MPI_GSUM  #undef  USE_MPI_GSUM
7  #define USE_JAM_GSUM  #define USE_JAM_GSUM
8    
9    CBOP
10    C     !ROUTINE: GLOBAL_SUM_R8_JAM
11    
12    C     !INTERFACE:
13        SUBROUTINE GLOBAL_SUM_R8_JAM( ans, myThid )        SUBROUTINE GLOBAL_SUM_R8_JAM( ans, myThid )
14    
15    C     !DESCRIPTION:
16    C     *=========================================================================*
17    C     | SUBROUTINE GLOBAL_SUM_R8_JAM
18    C     | o JAM binding of global sum routine
19    C     *=========================================================================*
20    C     | Does a super fast global sum over the JAM library. With JAM
21    C     | timings for dual proc SMP nodes over Arctic are about
22    C     | 4.3usecs log2(NP/2). When it was done this was faster than any other
23    C     | cluster on the planet :-).
24    C     *=========================================================================*
25    
26    C     !USES:
27  #ifdef ALLOW_MPI  #ifdef ALLOW_MPI
28  #include "mpif.h"  #include "mpif.h"
29  #endif  #endif
30    
31    C     !INPUT/OUTPUT PARAMETERS:
32    C     ans    :: Returned sum value
33    C     myThid :: Thread number of this instance
34        Real*8 ans        Real*8 ans
35        INTEGER myThid        INTEGER myThid
36    
37  #ifdef LETS_MAKE_JAM  #ifdef LETS_MAKE_JAM
38    
39    C     !LOCAL VARIABLES:
40    C     phi :: Temp. for accumulating sum
41    C     RC  :: Return code
42        Real*8 phi        Real*8 phi
43        INTEGER RC        INTEGER RC
44    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22