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

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

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

-revision 1.1 by cnh,
Wed Apr 22 19:15:30 1998 UTC
+revision 1.12 by jmc,
Mon Dec 15 02:02:38 2003 UTC
 Line 1
- C $Id$
+ C $Header$
+ C $Name$
  #include "CPP_EEOPTIONS.h"
- CStartOfInterface
+ CBOP
+ C     !ROUTINE: EEBOOT
+ C     !INTERFACE:
        SUBROUTINE EEBOOT
- C     /==========================================================\
+       IMPLICIT NONE
- C     | SUBROUTINE EEBOOT                                        |
- C     | o Set up execution "environment", particularly perform   |
+ C     !DESCRIPTION:
- C     |   steps to initialise parallel processing.               |
+ C     *==========================================================*
- C     |==========================================================|
+ C     | SUBROUTINE EEBOOT
- C     | Note: This routine can also be compiled with CPP         |
+ C     | o Set up execution "environment", particularly perform
- C     | directives set so that no multi-processing is initialised|
+ C     |   steps to initialise parallel processing.
- C     | This is OK and should work fine.                         |
+ C     *==========================================================*
- 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 works fine.
+ C     *==========================================================*
+ C     !CALLING SEQUENCE:
+ C     eeboot()
+ C       |
+ C       |-- eeboot_minimal() :: Minimal startup. Just enough to
+ C       |                       allow basic I/O.
+ C       |
+ C       |-- eeintro_msg()    :: Write startup greeting.
+ C       |
+ C       |-- eeset_parms()    :: Set WRAPPER parameters
+ C       |
+ C       |-- eewrite_eeenv()  :: Print WRAPPER parameter settings
+ C       |
+ C       |-- ini_procs()      :: Associate processes with grid regions.
+ C       |
+ C       |-- ini_threading_environment() :: Associate threads with grid regions.
+ C       |
+ C       |-- dfile_init()     :: Initialise simple multi-process I/O pacakge.
+ C     !USES:
  C     == Global variables ==
  #include "SIZE.h"
  #include "EEPARAMS.h"
  #include "EESUPPORT.h"
- CEndOfInterface
+ C     !LOCAL VARIABLES:
  C     == Local variables ==
- C     msgBuf - Variable for building informational messages
+ C     I :: Loop counter
- C     I - Loop counter
        INTEGER I
-       CHARACTER*(MAX_LEN_MBUF) msgBuf
+ CEOP
  C--   Set error reporting flags and I/O streams
  C     fatalError is a flag used to indicate that the program
-Line 47 
 C                               it does
+Line 72 
 C                               it does
  C     threadIsRunning used during startup to enable check that all
  C                     the threads are running.
        fatalError          = .FALSE.
-       errorMessageUnit    = 0
-       standardMessageUnit = 6
        eeBootError         = .FALSE.
        eeEndError          = .FALSE.
        DO I=1, MAX_NO_THREADS
-Line 56 
 C                     the threads are ru
+Line 79 
 C                     the threads are ru
         allMyEdgesAreSharedMemory(I) = .TRUE.
         threadIsRunning(I)           = .FALSE.
         threadIsComplete(I)          = .FALSE.
+        ioErrorCount(I)              = 0
        ENDDO
-       scrUnit1      = 11
+       standardMessageUnit = 6
-       scrUnit2      = 12
+       scrUnit1            = 11
-       eeDataUnit    = 13
+       scrUnit2            = 12
-       modelDataUnit = 14
+       eeDataUnit          = 13
+       modelDataUnit       = 14
+       errorMessageUnit    = 15
+ cph   errorMessageUnit = 0 is not allowed on some platforms, e.g. SP3
+ C
  C     Annoyingly there is no universal way to have the usingMPI
  C     parameter work as one might expect. This is because, on some
  C     systems I/O does not work until MPI_Init has been called. The
-Line 81 
 C       MPI is started. This makes is ha
+Line 109 
 C       MPI is started. This makes is ha
  C       where mpirun is used to start a non-MPI run or
  C       we try to start MPI when mpirun was not used.
  C       after it is started.
+ C jmc: test:
+ C     If necessary ( COMPONENT_MODULE defined ) add a 1rst preliminary
+ C     call to eeset_params (in EEBOOT_MINIMAL) to set useCoupler (needed
+ C     very early, and the stardard call eeset_params below comes too late)
+ C jmc: This needs to be sorted-out in a cleaner way.
        CALL EEBOOT_MINIMAL
        IF ( eeBootError ) GOTO 999
-Line 101 
 C     o Do other miscellaneous multi-pro
+Line 134 
 C     o Do other miscellaneous multi-pro
  C       example under MPI we create datatypes for communication
  C       of array edges.
        CALL INI_PROCS
+ #ifdef LETS_MAKE_JAM
+       CALL INI_JAM
+ #endif
        IF ( eeBootError ) GOTO 999
  C--   Initialise variables to support "nThreads" of computation.
-Line 108 
 C     o Note the program is still runnin
+Line 144 
 C     o Note the program is still runnin
  C       execution at this stage.
        CALL INI_THREADING_ENVIRONMENT
        IF ( eeBootError ) GOTO 999
+ C--   Pass attributes to the coupler
+ #ifdef COMPONENT_MODULE
+       IF ( useCoupler ) CALL CPL_REGISTER
+ #endif
+ #ifdef USE_DFILE
+ C--   Initiialise the multi-process IO package
+       CALL DFILE_INIT
+ #endif
 CONTINUE
        RETURN
        END
- C $Id$

 Legend:



Removed from v.1.1
 


changed lines


 
Added in v.1.12
 Legend:



Removed from v.1.1
 


changed lines


 
Added in v.1.12
-Removed from v.1.1
+Added in v.1.12

	ViewVC Help
Powered by ViewVC 1.1.22