/[MITgcm]/MITgcm/eesupp/inc/GLOBAL_SUM.h
ViewVC logotype

Diff of /MITgcm/eesupp/inc/GLOBAL_SUM.h

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

revision 1.5 by edhill, Wed Sep 28 01:58:25 2005 UTC revision 1.6 by jmc, Sat Sep 1 22:31:46 2007 UTC
# Line 6  C     !INTERFACE: Line 6  C     !INTERFACE:
6  C     include "GLOBAL_SUM.h"  C     include "GLOBAL_SUM.h"
7  C     !DESCRIPTION:  C     !DESCRIPTION:
8  C     *==========================================================*  C     *==========================================================*
9  C     | GLOBAL\_SUM.h                                             |  C     | GLOBAL\_SUM.h
10  C     | o Globals used by Fortran global sum routine.            |  C     | o Globals used by Fortran global sum routine.
11  C     *==========================================================*  C     *==========================================================*
12  C     | The global sum shared memory scheme uses global heap data|  C     | The global sum shared memory scheme uses global heap data|
13  C     | structures (.i.e COMMON blocks ). Each thread writes to  |  C     | structures (.i.e COMMON blocks ). Each thread writes to  |
# Line 29  C     | the way the global sum routines Line 29  C     | the way the global sum routines
29  C     *==========================================================*  C     *==========================================================*
30  CEOP  CEOP
31    
32        COMMON / GSUM_COMMON_R8 / phiGSRL, phiVGSRL        COMMON / GSUM_COMMON_R8 / phiGSRL
33    c    &                        , phiVGSRL
34        Real*8  phiGSRL (lShare8, MAX_NO_THREADS )        Real*8  phiGSRL (lShare8, MAX_NO_THREADS )
35        Real*8  phivGSRL(MAX_VGS, MAX_NO_THREADS )  c     Real*8  phivGSRL(MAX_VGS, MAX_NO_THREADS )
36    
37        COMMON / GSUM_COMMON_R4 / phiGSRS, phiVGSRS        COMMON / GSUM_COMMON_R4 / phiGSRS
38    c    &                        , phiVGSRS
39        Real*4  phiGSRS (lShare4, MAX_NO_THREADS )        Real*4  phiGSRS (lShare4, MAX_NO_THREADS )
40        Real*4  phivGSRS(MAX_VGS, MAX_NO_THREADS )  c     Real*4  phivGSRS(MAX_VGS, MAX_NO_THREADS )
41    
42        COMMON / GSUM_COMMON_I  / phiGSI, phiVGSI        COMMON / GSUM_COMMON_I  / phiGSI
43    c    &                        , phiVGSI
44        INTEGER phiGSI  (lShare4, MAX_NO_THREADS )        INTEGER phiGSI  (lShare4, MAX_NO_THREADS )
45        INTEGER phivGSI (MAX_VGS, MAX_NO_THREADS )  c     INTEGER phivGSI (MAX_VGS, MAX_NO_THREADS )
46    
47  CEH3 ;;; Local Variables: ***  CEH3 ;;; Local Variables: ***
48  CEH3 ;;; mode:fortran ***  CEH3 ;;; mode:fortran ***
49  CEH3 ;;; End: ***  CEH3 ;;; End: ***
   
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22