/[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.4 by cnh, Thu May 21 18:30:08 1998 UTC revision 1.6 by adcroft, Tue Mar 14 16:10:22 2000 UTC
# Line 13  C     | Note: This routine can also be c Line 13  C     | Note: This routine can also be c
13  C     | directives set so that no multi-processing is initialised|  C     | directives set so that no multi-processing is initialised|
14  C     | This is OK and should work fine.                         |  C     | This is OK and should work fine.                         |
15  C     \==========================================================/  C     \==========================================================/
16          IMPLICIT NONE
17    
18  C     == Global variables ==  C     == Global variables ==
19  #include "SIZE.h"  #include "SIZE.h"
# Line 102  C     o Do other miscellaneous multi-pro Line 103  C     o Do other miscellaneous multi-pro
103  C       example under MPI we create datatypes for communication  C       example under MPI we create datatypes for communication
104  C       of array edges.  C       of array edges.
105        CALL INI_PROCS        CALL INI_PROCS
106    #ifdef LETS_MAKE_JAM
107          CALL INI_JAM
108    #endif
109        IF ( eeBootError ) GOTO 999        IF ( eeBootError ) GOTO 999
110    
111  C--   Initialise variables to support "nThreads" of computation.  C--   Initialise variables to support "nThreads" of computation.
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22