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

Diff of /MITgcm/eesupp/src/eeboot_minimal.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:42 2001 UTC revision 1.8 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_MINIMAL
8    
9    C     !INTERFACE:
10        SUBROUTINE EEBOOT_MINIMAL        SUBROUTINE EEBOOT_MINIMAL
 C     /==========================================================\  
 C     | SUBROUTINE EEBOOT_MINIMAL                                |  
 C     | o Set an initial environment that is predictable i.e.    |  
 C     | behaves in a similar way on all machines and stable.     |  
 C     |==========================================================|  
 C     | Under MPI this routine calls MPI_INIT to setup the       |  
 C     | mpi environment ( on some systems the code is running as |  
 C     | a single process prior to MPI_INIT, on others the mpirun |  
 C     | script has already created multiple processes). Until    |  
 C     | MPI_Init is called it is unclear what state the          |  
 C     | application is in. Once this routine has been run it is  |  
 C     | "safe" to do things like I/O to report erros and to get  |  
 C     | run parameters.                                          |  
 C     | Note: This routine can also be compiled with CPP         |  
 C     | directives set so that no multi-processing is initialise.|  
 C     | This is OK and should work fine.                         |  
 C     \==========================================================/  
11        IMPLICIT NONE        IMPLICIT NONE
12    
13  C     === Global data ===  C     !DESCRIPTION:
14    C     *==========================================================*
15    C     | SUBROUTINE EEBOOT_MINIMAL                                
16    C     | o Set an initial environment that is predictable i.e.    
17    C     | behaves in a similar way on all machines and stable.      
18    C     *==========================================================*
19    C     | Under MPI this routine calls MPI_INIT to setup the        
20    C     | mpi environment ( on some systems the code is running as  
21    C     | a single process prior to MPI_INIT, on others the mpirun  
22    C     | script has already created multiple processes). Until    
23    C     | MPI_Init is called it is unclear what state the          
24    C     | application is in. Once this routine has been run it is  
25    C     | "safe" to do things like I/O to report erros and to get  
26    C     | run parameters.                                          
27    C     | Note: This routine can also be compiled with CPP          
28    C     | directives set so that no multi-processing is initialise.
29    C     | This is OK and will work fine.                          
30    C     *==========================================================*
31    
32    C     !USES:
33    C     == Global data ==
34  #include "SIZE.h"  #include "SIZE.h"
35  #include "EEPARAMS.h"  #include "EEPARAMS.h"
36  #include "EESUPPORT.h"  #include "EESUPPORT.h"
37    
38  CEndOfInterface  C     !LOCAL VARIABLES:
39    C     == Local variables ==
40  C     === Local variables ===  C     myThid           :: Temp. dummy thread number.
41        INTEGER myThid            INTEGER myThid    
42  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
43  C     mpiRC            - Error code reporting variable used  C     mpiRC            :: Error code reporting variable used
44  C                        with MPI.  C                         with MPI.
45  C     fNam             - Used to build name of file for standard  C     fNam             :: Used to build name of file for standard
46  C                        output and error output.  C                         output and error output.
47  C     msgBuffer        - Used to build messages for printing.  C     msgBuffer        :: Used to build messages for printing.
48        CHARACTER*(MAX_LEN_MBUF) msgBuffer        CHARACTER*(MAX_LEN_MBUF) msgBuffer
49        INTEGER mpiRC        INTEGER mpiRC
50        CHARACTER*13 fNam        CHARACTER*13 fNam
51  #endif /* ALLOW_USE_MPI */  #endif /* ALLOW_USE_MPI */
52    CEOP
53    
54  C--   Default values set to single processor case  C--   Default values set to single processor case
55        numberOfProcs = 1        numberOfProcs = 1
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22