/[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.4 by edhill, Sat Mar 27 03:51:50 2004 UTC revision 1.5 by edhill, Wed Sep 28 01:58:25 2005 UTC
# Line 28  C     | make modifications te way these Line 28  C     | make modifications te way these
28  C     | the way the global sum routines work.                    |  C     | the way the global sum routines work.                    |
29  C     *==========================================================*  C     *==========================================================*
30  CEOP  CEOP
       COMMON / GSUM_COMMON_R8 / phiGSRL  
       Real*8  phiGSRL(lShare8, MAX_NO_THREADS )  
31    
32        COMMON / GSUM_COMMON_R4 / phiGSRS        COMMON / GSUM_COMMON_R8 / phiGSRL, phiVGSRL
33        Real*4  phiGSRS(lShare4, MAX_NO_THREADS )        Real*8  phiGSRL (lShare8, MAX_NO_THREADS )
34          Real*8  phivGSRL(MAX_VGS, MAX_NO_THREADS )
35    
36          COMMON / GSUM_COMMON_R4 / phiGSRS, phiVGSRS
37          Real*4  phiGSRS (lShare4, MAX_NO_THREADS )
38          Real*4  phivGSRS(MAX_VGS, MAX_NO_THREADS )
39    
40          COMMON / GSUM_COMMON_I  / phiGSI, phiVGSI
41          INTEGER phiGSI  (lShare4, MAX_NO_THREADS )
42          INTEGER phivGSI (MAX_VGS, MAX_NO_THREADS )
43    
44    CEH3 ;;; Local Variables: ***
45    CEH3 ;;; mode:fortran ***
46    CEH3 ;;; End: ***
47    
       COMMON / GSUM_COMMON_I  / phiGSI  
       INTEGER phiGSI (lShare4, MAX_NO_THREADS )  
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22