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

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

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


Revision 1.1.1.1 - (show annotations) (download) (vendor branch)
Wed Apr 22 19:15:30 1998 UTC (26 years ago) by cnh
Branch: cnh
CVS Tags: baseline, start
Changes since 1.1: +0 -0 lines
File MIME type: text/plain
Imported working release

1 C $Id$
2 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 #ifdef USE_KAP_THREADING
25 C--
26 C-- Parallel directives for Kuck and Associates compiler.
27 C-- This is used to generate multi-threaded code on Digital
28 C-- systems. It can also be used under NT.
29 C--
30 C Parallel compiler directives for Digital with kap compiler.
31 C*KAP* PARALLEL REGION
32 C*KAP*& SHARED(nThreads,eeBootError,threadIsComplete)
33 C*KAP*& LOCAL(myThid,I)
34 C*KAP* PARALLEL DO
35 C*KAP*& BLOCKED(1)
36 C
37 #endif
38
39 #ifdef USE_IRIX_THREADING
40 C--
41 C-- Parallel directives for MIPS Pro Fortran compiler
42 C--
43 C Parallel compiler directives for SGI with IRIX
44 C$PAR PARALLEL DO
45 C$PAR& CHUNK=1,MP_SCHEDTYPE=INTERLEAVE,
46 C$PAR& SHARE(nThreads),LOCAL(myThid,I)
47 C
48 #endif
49
50 #ifdef USE_EXEMPLAR_THREADING
51 C--
52 C-- Parallel directives for HP Exemplar Fortran compiler
53 C--
54 C Parallel compiler directives for HP Exemplar
55 C$DIR loop_parallel
56 C$DIR loop_private (I,myThid)
57 #endif
58
59 #ifdef USE_C90_THREADING
60 C--
61 C-- Parallel directives for CRAY/SGI Fortan 90 compiler.
62 C--
63 CMIC$ DO ALL PRIVATE (I, myThid ) SHARED(nThreads)
64 CMIC$& SINGLE
65 #endif
66

  ViewVC Help
Powered by ViewVC 1.1.22