/[MITgcm]/MITgcm/eesupp/src/ini_threading_environment.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/ini_threading_environment.F

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

revision 1.7 by cnh, Sun Feb 4 14:38:43 2001 UTC revision 1.8 by cnh, Fri Sep 21 03:54:35 2001 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
5    
6  CStartOfInterface  CBOP
7    
8    C     !ROUTINE: INI_THREADING_ENVIRONMENT
9    
10    C     !INTERFACE:
11        SUBROUTINE INI_THREADING_ENVIRONMENT        SUBROUTINE INI_THREADING_ENVIRONMENT
 C     /==========================================================\  
 C     | SUBROUTINE INI_THREADING_ENVIRONMENT                     |  
 C     | o Initialise multi-threaded environment.                 |  
 C     |==========================================================|  
 C     | Generally we do not start separate threads here.         |  
 C     | The separate threads a spawned at later on.              |  
 C     | Here we perform initialisation of data-structures        |  
 C     | that indicate which of the nSx x nSy tiles a thread is   |  
 C     | responsible for.                                         |  
 C     | The multiple threads are spawned in the top level MAIN   |  
 C     | routine.                                                 |  
 C     \==========================================================/  
12        IMPLICIT NONE        IMPLICIT NONE
13    
14    C     !DESCRIPTION:
15    C     *==========================================================*
16    C     | SUBROUTINE INI_THREADING_ENVIRONMENT                      
17    C     | o Initialise multi-threaded environment.                  
18    C     *==========================================================*
19    C     | Generally we do not start separate threads here.          
20    C     | The separate threads a spawned at later on.              
21    C     | Here we perform initialisation of data-structures        
22    C     | that indicate which of the nSx x nSy tiles a thread is    
23    C     | responsible for.                                          
24    C     | The multiple threads are spawned in the top level MAIN    
25    C     | routine.                                                  
26    C     *==========================================================*
27    
28    C     !USES:
29  C     == Global data ==  C     == Global data ==
30  #include "SIZE.h"  #include "SIZE.h"
31  #include "EEPARAMS.h"  #include "EEPARAMS.h"
32  #include "EESUPPORT.h"  #include "EESUPPORT.h"
 CEndOfInterface  
33    
34    C     !LOCAL VARIABLES:
35  C     == Local variables ==  C     == Local variables ==
36  C     bXPerThread - Blocks of size sNx per thread.  C     bXPerThread - Blocks of size sNx per thread.
37  C     byPerThread - Blocks of size sNy per thread.  C     byPerThread - Blocks of size sNy per thread.
# Line 50  C                     called before mult Line 57  C                     called before mult
57        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
58        INTEGER myThid        INTEGER myThid
59    
60    CEOP
61    
62  C--   Set default for all threads of having no blocks to  C--   Set default for all threads of having no blocks to
63  C--   work on - except for thread 1.  C--   work on - except for thread 1.
64        myBxLo(1) = 1        myBxLo(1) = 1
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22