/[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.4 - (show annotations) (download)
Sun Feb 4 14:38:41 2001 UTC (23 years, 1 month ago) by cnh
Branch: MAIN
CVS Tags: checkpoint40pre3, checkpoint40pre1, checkpoint40pre7, checkpoint40pre6, checkpoint40pre9, checkpoint40pre8, checkpoint38, checkpoint40pre2, checkpoint40pre4, pre38tag1, c37_adj, pre38-close, checkpoint39, checkpoint37, checkpoint36, checkpoint35, checkpoint40pre5, checkpoint40
Branch point for: pre38
Changes since 1.3: +2 -1 lines
File MIME type: text/plain
Made sure each .F and .h file had
the CVS keywords Header and Name at its start.
Most had header but very few currently have Name, so
lots of changes!

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

  ViewVC Help
Powered by ViewVC 1.1.22