eesupp/inc/MAIN_PDIRECTIVES1.h

C $Header: /u/gcmpack/models/MITgcmUV/eesupp/inc/MAIN_PDIRECTIVES1.h,v 1.2 1998/04/23 20:59:35 cnh Exp $
C
C     /==========================================================\
C     | MAIN_PDIRECTIVES1.h                                      |
C     |==========================================================|
C     | Parallel directives to generate multithreaded code for   |
C     | various different compilers. The master preprocessor     |
C     | file CPP_OPTIONS is used to select which of these options|
C     | is included in the code.                                 |
C     \==========================================================/

#ifdef USE_SOLARIS_THREADING
C--
C--  Parallel directives for SUN/Pro compiler.
C--
C     Parallel compiler directives for Solaris
C$PAR  DOALL
C$PAR& SHARED(nThreads)
C$PAR& ,PRIVATE(myThid)
C$PAR& ,SCHEDTYPE(SELF(1))
C
#endif

#define USE_KAP_THREADING
#ifdef USE_KAP_THREADING
C--
C--  Parallel directives for Kuck and Associates compiler.
C--  This is used to generate multi-threaded code on Digital 
C--  systems. It can also be used under NT.
C--
C      Parallel compiler directives for Digital with kap compiler.
C*KAP* PARALLEL REGION
C*KAP*& SHARED(nThreads,eeBootError,threadIsComplete)
C*KAP*& LOCAL(myThid,I)
C*KAP*  PARALLEL DO
C*KAP*& BLOCKED(1)
C
#endif

#ifdef USE_IRIX_THREADING
C--
C--  Parallel directives for MIPS Pro Fortran compiler
C--
C      Parallel compiler directives for SGI with IRIX
C$PAR  PARALLEL DO
C$PAR&  CHUNK=1,MP_SCHEDTYPE=INTERLEAVE,
C$PAR&  SHARE(nThreads),LOCAL(myThid,I)
C
#endif

#ifdef USE_EXEMPLAR_THREADING
C--
C--  Parallel directives for HP Exemplar Fortran compiler
C--
C      Parallel compiler directives for HP Exemplar
C$DIR loop_parallel
C$DIR loop_private (I,myThid)
#endif

#ifdef USE_C90_THREADING
C--
C--  Parallel directives for CRAY/SGI Fortan 90 compiler.
C--
CMIC$ DO ALL PRIVATE (I, myThid ) SHARED(nThreads)
CMIC$& SINGLE
#endif             

1	cnh	1.3	C $Header: /u/gcmpack/models/MITgcmUV/eesupp/inc/MAIN_PDIRECTIVES1.h,v 1.2 1998/04/23 20:59:35 cnh Exp $
2	cnh	1.1	C
3			C /==========================================================\
4			C \| MAIN_PDIRECTIVES1.h \|
5			C \|==========================================================\|
6			C \| Parallel directives to generate multithreaded code for \|
7			C \| various different compilers. The master preprocessor \|
8			C \| file CPP_OPTIONS is used to select which of these options\|
9			C \| is included in the code. \|
10			C \==========================================================/
11
12			#ifdef USE_SOLARIS_THREADING
13			C--
14			C-- Parallel directives for SUN/Pro compiler.
15			C--
16			C Parallel compiler directives for Solaris
17			C$PAR DOALL
18			C$PAR& SHARED(nThreads)
19			C$PAR& ,PRIVATE(myThid)
20			C$PAR& ,SCHEDTYPE(SELF(1))
21			C
22			#endif
23
24	cnh	1.3	#define USE_KAP_THREADING
25	cnh	1.1	#ifdef USE_KAP_THREADING
26			C--
27			C-- Parallel directives for Kuck and Associates compiler.
28			C-- This is used to generate multi-threaded code on Digital
29			C-- systems. It can also be used under NT.
30			C--
31			C Parallel compiler directives for Digital with kap compiler.
32			CKAP PARALLEL REGION
33			CKAP& SHARED(nThreads,eeBootError,threadIsComplete)
34			CKAP& LOCAL(myThid,I)
35			CKAP PARALLEL DO
36			CKAP& BLOCKED(1)
37			C
38			#endif
39
40			#ifdef USE_IRIX_THREADING
41			C--
42			C-- Parallel directives for MIPS Pro Fortran compiler
43			C--
44			C Parallel compiler directives for SGI with IRIX
45			C$PAR PARALLEL DO
46			C$PAR& CHUNK=1,MP_SCHEDTYPE=INTERLEAVE,
47			C$PAR& SHARE(nThreads),LOCAL(myThid,I)
48			C
49			#endif
50
51			#ifdef USE_EXEMPLAR_THREADING
52			C--
53			C-- Parallel directives for HP Exemplar Fortran compiler
54			C--
55			C Parallel compiler directives for HP Exemplar
56			C$DIR loop_parallel
57			C$DIR loop_private (I,myThid)
58			#endif
59
60			#ifdef USE_C90_THREADING
61			C--
62			C-- Parallel directives for CRAY/SGI Fortan 90 compiler.
63			C--
64			CMIC$ DO ALL PRIVATE (I, myThid ) SHARED(nThreads)
65			CMIC$& SINGLE
66			#endif
67