/[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.3 - (show annotations) (download)
Tue Sep 29 18:50:56 1998 UTC (25 years, 6 months ago) by cnh
Branch: MAIN
CVS Tags: checkpoint15, checkpoint17, checkpoint19, checkpoint18, checkpoint28, checkpoint29, checkpoint20, checkpoint21, checkpoint22, checkpoint23, checkpoint24, checkpoint25, checkpoint27, branch-atmos-merge-freeze, branch-atmos-merge-start, checkpoint26, checkpoint16, branch-atmos-merge-shapiro, checkpoint33, checkpoint32, checkpoint31, checkpoint30, checkpoint34, branch-atmos-merge-zonalfilt, branch-atmos-merge-phase5, branch-atmos-merge-phase4, branch-atmos-merge-phase7, branch-atmos-merge-phase6, branch-atmos-merge-phase1, branch-atmos-merge-phase3, branch-atmos-merge-phase2
Branch point for: branch-atmos-merge
Changes since 1.2: +2 -1 lines
File MIME type: text/plain
Changes for new exchange routines which do general tile <-> tile
connectivity, variable width overlap regions and provide
hooks for shared memory  and DMA protocols like Arctic, Memory Channel
etc..

1 C $Header: /u/gcmpack/models/MITgcmUV/eesupp/inc/MAIN_PDIRECTIVES1.h,v 1.2 1998/04/23 20:59:35 cnh Exp $
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 #define USE_KAP_THREADING
25 #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 C*KAP* PARALLEL REGION
33 C*KAP*& SHARED(nThreads,eeBootError,threadIsComplete)
34 C*KAP*& LOCAL(myThid,I)
35 C*KAP* PARALLEL DO
36 C*KAP*& 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

  ViewVC Help
Powered by ViewVC 1.1.22