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