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

Contents of /MITgcm/eesupp/inc/MAIN_PDIRECTIVES2.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:42 2001 UTC (23 years 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_PDIRECTIVES2.h,v 1.3 1998/10/28 03:11:33 cnh Exp $
2 C $Name: $
3 C
4 C /==========================================================\
5 C | MAIN_PDIRECTIVES2.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 | Note: Only some of the directives require end blocks. |
12 C | For directives which do not require end blocks there|
13 C | is no entry here. |
14 C \==========================================================/
15
16 #if defined USE_KAP_THREADING
17 C--
18 C-- Parallel directives for Kuck and Associates compiler.
19 C-- This is used to generate multi-threaded code on Digital
20 C-- systems. It can also be used under NT.
21 C-- Note: The KAP parallel proceesing tool has several bugs
22 C-- which means that if there are more threads (set via
23 C-- setenv PARALLEL) than iterations in the parallel
24 C-- loop the extra threads start on the section
25 C-- after the loop!
26 C-- To work around this we could place an extra dummy
27 C-- parallel section here. KAP places a barrier at the
28 C-- start of each parallel region which ensures that
29 C-- the extra threads wait (note this wait is in a busy loop).
30 C-- Without this feature the extra thread(s) will run on and may
31 C-- halt the program by calling STOP! Unfortunately that seems
32 C-- to cause a deadlock in a KAP library routine! Instead the
33 C-- current solution is to check for a thread reaching the
34 C-- shutdown part of main.F before other threads have
35 C-- completed computation ( see eedie.F ).
36 C
37 C*KAP* END PARALLEL REGION
38 C C*KAP* PARALLEL REGION
39 C CALL FOOL_THE_COMPILER
40 C C*KAP* END PARALLEL REGION
41 C
42 #endif
43 C
44

  ViewVC Help
Powered by ViewVC 1.1.22