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

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

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

revision 1.3 by cnh, Thu Apr 23 20:56:54 1998 UTC revision 1.10 by cnh, Fri Sep 21 03:54:34 2001 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
5    
6  CStartOfInterface  CBOP            
7    C     !ROUTINE: EEBOOT
8    
9    C     !INTERFACE:
10        SUBROUTINE EEBOOT        SUBROUTINE EEBOOT
11  C     /==========================================================\        IMPLICIT NONE
12  C     | SUBROUTINE EEBOOT                                        |  
13  C     | o Set up execution "environment", particularly perform   |  C     !DESCRIPTION:
14  C     |   steps to initialise parallel processing.               |  C     *==========================================================*
15  C     |==========================================================|  C     | SUBROUTINE EEBOOT                                        
16  C     | Note: This routine can also be compiled with CPP         |  C     | o Set up execution "environment", particularly perform    
17  C     | directives set so that no multi-processing is initialised|  C     |   steps to initialise parallel processing.                
18  C     | This is OK and should work fine.                         |  C     *==========================================================*
19  C     \==========================================================/  C     | Note: This routine can also be compiled with CPP          
20    C     | directives set so that no multi-processing is initialised
21    C     | This is OK and works fine.                          
22    C     *==========================================================*
23    
24    C     !CALLING SEQUENCE:
25    C     eeboot()
26    C       |
27    C       |-- eeboot_minimal() :: Minimal startup. Just enough to
28    C       |                       allow basic I/O.
29    C       |
30    C       |-- eeintro_msg()    :: Write startup greeting.
31    C       |
32    C       |-- eeset_parms()    :: Set WRAPPER parameters
33    C       |
34    C       |-- eewrite_eeenv()  :: Print WRAPPER parameter settings
35    C       |
36    C       |-- ini_procs()      :: Associate processes with grid regions.
37    C       |
38    C       |-- ini_threading_environment() :: Associate threads with grid regions.
39    C       |
40    C       |-- dfile_init()     :: Initialise simple multi-process I/O pacakge.
41    
42    C     !USES:
43  C     == Global variables ==  C     == Global variables ==
44  #include "SIZE.h"  #include "SIZE.h"
45  #include "EEPARAMS.h"  #include "EEPARAMS.h"
46  #include "EESUPPORT.h"  #include "EESUPPORT.h"
 CEndOfInterface  
47    
48    C     !LOCAL VARIABLES:
49  C     == Local variables ==  C     == Local variables ==
50  C     msgBuf - Variable for building informational messages  C     I :: Loop counter
 C     I - Loop counter  
51        INTEGER I        INTEGER I
52        CHARACTER*(MAX_LEN_MBUF) msgBuf  CEOP
53    
54  C--   Set error reporting flags and I/O streams  C--   Set error reporting flags and I/O streams
55  C     fatalError is a flag used to indicate that the program  C     fatalError is a flag used to indicate that the program
# Line 56  C                     the threads are ru Line 81  C                     the threads are ru
81         allMyEdgesAreSharedMemory(I) = .TRUE.         allMyEdgesAreSharedMemory(I) = .TRUE.
82         threadIsRunning(I)           = .FALSE.         threadIsRunning(I)           = .FALSE.
83         threadIsComplete(I)          = .FALSE.         threadIsComplete(I)          = .FALSE.
84           ioErrorCount(I)              = 0
85        ENDDO        ENDDO
86        scrUnit1      = 11        scrUnit1      = 11
87        scrUnit2      = 12        scrUnit2      = 12
# Line 101  C     o Do other miscellaneous multi-pro Line 127  C     o Do other miscellaneous multi-pro
127  C       example under MPI we create datatypes for communication  C       example under MPI we create datatypes for communication
128  C       of array edges.  C       of array edges.
129        CALL INI_PROCS        CALL INI_PROCS
130    #ifdef LETS_MAKE_JAM
131          CALL INI_JAM
132    #endif
133        IF ( eeBootError ) GOTO 999        IF ( eeBootError ) GOTO 999
134    
135  C--   Initialise variables to support "nThreads" of computation.  C--   Initialise variables to support "nThreads" of computation.
# Line 108  C     o Note the program is still runnin Line 137  C     o Note the program is still runnin
137  C       execution at this stage.  C       execution at this stage.
138        CALL INI_THREADING_ENVIRONMENT        CALL INI_THREADING_ENVIRONMENT
139        IF ( eeBootError ) GOTO 999        IF ( eeBootError ) GOTO 999
140    
141    #ifdef USE_DFILE
142    C--   Initiialise the multi-process IO package
143          CALL DFILE_INIT
144    #endif
145    
146    999 CONTINUE    999 CONTINUE
147        RETURN        RETURN
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22