eesupp/inc/MAIN_PDIRECTIVES2.h

C $Header: /u/gcmpack/models/MITgcmUV/eesupp/inc/MAIN_PDIRECTIVES2.h,v 1.3 1998/10/28 03:11:33 cnh Exp $
C $Name: $
C
C     /==========================================================\
C     | MAIN_PDIRECTIVES2.h                                      |
C     |==========================================================|
C     | Parallel directives to generate multithreaded code for   |
C     | various different compilers. The master preprocessor     |
C     | file CPP_OPTIONS is used to select which of these options|
C     | is included in the code.                                 |
C     | Note: Only some of the directives require end blocks.    |
C     |      For directives which do not require end blocks there|
C     |      is no entry here.                                   |
C     \==========================================================/

#if defined USE_KAP_THREADING
C--
C--  Parallel directives for Kuck and Associates compiler.
C--  This is used to generate multi-threaded code on Digital
C--  systems. It can also be used under NT. 
C--  Note: The KAP parallel proceesing tool has several bugs
C--        which means that if there are more threads (set via
C--        setenv PARALLEL) than iterations in the parallel
C--        loop the extra threads start on the section 
C--        after the loop!
C--        To work around this we could place an extra dummy
C--        parallel section here. KAP places a barrier at the
C--        start of each parallel region which ensures that 
C--        the extra threads wait (note this wait is in a busy loop).
C--        Without this feature the extra thread(s) will run on and may
C--        halt the program by calling STOP! Unfortunately that seems
C--        to cause a deadlock in a KAP library routine! Instead the
C--        current solution is to check for a thread reaching the
C--        shutdown part of main.F before other threads have
C--        completed computation ( see eedie.F ).
C
C*KAP*  END PARALLEL REGION
C   C*KAP*  PARALLEL REGION
C           CALL FOOL_THE_COMPILER
C   C*KAP*  END PARALLEL REGION
C
#endif
C

1	cnh	1.4	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	cnh	1.1	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	cnh	1.3	C \| For directives which do not require end blocks there\|
13			C \| is no entry here. \|
14	cnh	1.1	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			CKAP END PARALLEL REGION
38			C CKAP PARALLEL REGION
39			C CALL FOOL_THE_COMPILER
40			C CKAP END PARALLEL REGION
41			C
42			#endif
43			C
44