/[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.2 by adcroft, Tue May 29 14:01:35 2001 UTC revision 1.3 by cnh, Fri Sep 21 03:54:36 2001 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3  C  CBOP
4  C     /==========================================================\  C     !ROUTINE: GLOBAL_SUM.h
5  C     | GLOBA:_SUM.h                                             |  C     !INTERFACE:
6    C     include "GLOBAL_SUM.h"
7    C     !DESCRIPTION:
8    C     *==========================================================*
9    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  |
14  C     | an its own element of the shared memory array and then   |  C     | an its own element of the shared memory array and then   |
# Line 22  C     | code. Line 26  C     | code.
26  C     | Unless you understand this it is not a good idea to      |  C     | Unless you understand this it is not a good idea to      |
27  C     | make modifications te way these header files are setup or|  C     | make modifications te way these header files are setup or|
28  C     | the way the global sum routines work.                    |  C     | the way the global sum routines work.                    |
29  C     \==========================================================/  C     *==========================================================*
30    CEOP
31        COMMON / GSUM_COMMON_R8 / phiGSRL        COMMON / GSUM_COMMON_R8 / phiGSRL
32        Real*8  phiGSRL(lShare8, MAX_NO_THREADS )        Real*8  phiGSRL(lShare8, MAX_NO_THREADS )
33    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22