/[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.7 by jmc, Tue Sep 4 14:41:24 2007 UTC revision 1.8 by jmc, Wed Jun 10 03:45:11 2009 UTC
# 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, shareBufGSR8        COMMON / GSUM_COMMON_R8 / phiGSR8, shareBufGSR8
33  c    &                        , phiVGSRL  c    &                        , phiVGSR8
34        Real*8  phiGSRL (lShare8, MAX_NO_THREADS )        Real*8  phiGSR8 (lShare8, 0:MAX_NO_THREADS )
35        Real*8  shareBufGSR8 ( nSx, nSy )        Real*8  shareBufGSR8 ( nSx, nSy )
36  c     Real*8  phivGSRL(MAX_VGS, MAX_NO_THREADS )  c     Real*8  phivGSR8(MAX_VGS, 0:MAX_NO_THREADS )
37    
38        COMMON / GSUM_COMMON_R4 / phiGSRS        COMMON / GSUM_COMMON_R4 / phiGSR4
39  c    &                        , phiVGSRS  c    &                        , phiVGSR4
40        Real*4  phiGSRS (lShare4, MAX_NO_THREADS )        Real*4  phiGSR4 (lShare4, 0:MAX_NO_THREADS )
41  c     Real*4  phivGSRS(MAX_VGS, MAX_NO_THREADS )  c     Real*4  phivGSR4(MAX_VGS, 0:MAX_NO_THREADS )
42    
43        COMMON / GSUM_COMMON_I  / phiGSI        COMMON / GSUM_COMMON_I  / phiGSI
44  c    &                        , phiVGSI  c    &                        , phiVGSI
45        INTEGER phiGSI  (lShare4, MAX_NO_THREADS )        INTEGER phiGSI  (lShare4, 0:MAX_NO_THREADS )
46  c     INTEGER phivGSI (MAX_VGS, MAX_NO_THREADS )  c     INTEGER phivGSI (MAX_VGS, 0:MAX_NO_THREADS )
47    
48  CEH3 ;;; Local Variables: ***  CEH3 ;;; Local Variables: ***
49  CEH3 ;;; mode:fortran ***  CEH3 ;;; mode:fortran ***
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22