/[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.9 by cnh, Sun Feb 4 14:38:42 2001 UTC revision 1.10 by cnh, Fri Sep 21 03:54:34 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    C     !ROUTINE: EEBOOT
8    
9    C     !INTERFACE:
10        SUBROUTINE EEBOOT        SUBROUTINE EEBOOT
 C     /==========================================================\  
 C     | SUBROUTINE EEBOOT                                        |  
 C     | o Set up execution "environment", particularly perform   |  
 C     |   steps to initialise parallel processing.               |  
 C     |==========================================================|  
 C     | Note: This routine can also be compiled with CPP         |  
 C     | directives set so that no multi-processing is initialised|  
 C     | This is OK and should work fine.                         |  
 C     \==========================================================/  
11        IMPLICIT NONE        IMPLICIT NONE
12    
13    C     !DESCRIPTION:
14    C     *==========================================================*
15    C     | SUBROUTINE EEBOOT                                        
16    C     | o Set up execution "environment", particularly perform    
17    C     |   steps to initialise parallel processing.                
18    C     *==========================================================*
19    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     I - Loop counter  C     I :: Loop counter
51        INTEGER I        INTEGER I
52    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
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22