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

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

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

revision 1.1.1.1 by cnh, Wed Apr 22 19:15:30 1998 UTC revision 1.7 by cnh, Mon Nov 7 18:16:08 2005 UTC
# Line 1  Line 1 
1  C $Id$  C $Header$
2  C  C $Name$
3  C     /==========================================================\  CBOP
4  C     | MAIN_PDIRECTIVES1.h                                      |  C     !ROUTINE: MAIN_PDIRECTIVES1.h
5  C     |==========================================================|  C     !INTERFACE:
6  C     | Parallel directives to generate multithreaded code for   |  C     include "MAIN_PDIRECTIVES1.h"
7  C     | various different compilers. The master preprocessor     |  C     !DESCRIPTION:
8  C     | file CPP_OPTIONS is used to select which of these options|  C     *==========================================================*
9  C     | is included in the code.                                 |  C     | MAIN\_PDIRECTIVES1.h                                      
10  C     \==========================================================/  C     *==========================================================*
11    C     | Parallel directives to generate multithreaded code for    
12    C     | various different compilers. The master preprocessor      
13    C     | file CPP\_OPTIONS is used to select which of these
14    C     | options is included in the code.
15    C     *==========================================================*
16    CEOP
17    
18  #ifdef USE_SOLARIS_THREADING  #ifdef USE_SOLARIS_THREADING
19  C--  C--
# Line 21  C$PAR& ,SCHEDTYPE(SELF(1)) Line 27  C$PAR& ,SCHEDTYPE(SELF(1))
27  C  C
28  #endif  #endif
29    
30    #define USE_KAP_THREADING
31  #ifdef USE_KAP_THREADING  #ifdef USE_KAP_THREADING
32  C--  C--
33  C--  Parallel directives for Kuck and Associates compiler.  C--  Parallel directives for Kuck and Associates compiler.
# Line 64  CMIC$ DO ALL PRIVATE (I, myThid ) SHARED Line 71  CMIC$ DO ALL PRIVATE (I, myThid ) SHARED
71  CMIC$& SINGLE  CMIC$& SINGLE
72  #endif              #endif            
73    
74    
75    #ifdef USE_OMP_THREADING
76    C$OMP PARALLEL  SHARED(nThreads), PRIVATE(I,myThid)
77    #endif
78    
Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22