/[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.6 by jmc, Sat Sep 1 22:31:46 2007 UTC revision 1.7 by jmc, Tue Sep 4 14:41:24 2007 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        COMMON / GSUM_COMMON_R8 / phiGSRL, shareBufGSR8
33  c    &                        , phiVGSRL  c    &                        , phiVGSRL
34        Real*8  phiGSRL (lShare8, MAX_NO_THREADS )        Real*8  phiGSRL (lShare8, MAX_NO_THREADS )
35          Real*8  shareBufGSR8 ( nSx, nSy )
36  c     Real*8  phivGSRL(MAX_VGS, MAX_NO_THREADS )  c     Real*8  phivGSRL(MAX_VGS, MAX_NO_THREADS )
37    
38        COMMON / GSUM_COMMON_R4 / phiGSRS        COMMON / GSUM_COMMON_R4 / phiGSRS
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22