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

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

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

revision 1.6 by cnh, Wed Oct 28 03:11:34 1998 UTC revision 1.10 by heimbach, Mon Jan 29 20:00:14 2001 UTC
# Line 14  C     | before multi-threaded parallelis Line 14  C     | before multi-threaded parallelis
14  C     | an "execution environment" input parameter file holding  |  C     | an "execution environment" input parameter file holding  |
15  C     | information about the number of threads at run-time.     |  C     | information about the number of threads at run-time.     |
16  C     \==========================================================/  C     \==========================================================/
17          IMPLICIT NONE
18    
19  C     === Global variables ===  C     === Global variables ===
20  #include "SIZE.h"  #include "SIZE.h"
# Line 22  C     === Global variables === Line 23  C     === Global variables ===
23  CEndOfInterface  CEndOfInterface
24    
25  C     === Local variables ===  C     === Local variables ===
 C     K - Loop counter  
26  C     iUnit - Work variable for IO unit number  C     iUnit - Work variable for IO unit number
27  C     errIO - IO unit error flag  C     errIO - IO unit error flag
28        INTEGER K, IL        INTEGER IL
29        INTEGER errIO        INTEGER errIO
30        INTEGER iUnit        INTEGER iUnit
31        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
# Line 35  C     errIO - IO unit error flag Line 35  C     errIO - IO unit error flag
35        INTEGER  ILNBLNK        INTEGER  ILNBLNK
36        EXTERNAL ILNBLNK        EXTERNAL ILNBLNK
37        NAMELIST /EEPARMS/        NAMELIST /EEPARMS/
38       & nTx, nTy       & nTx, nTy,usingMPI
39    
40    
41  C--   For now these options are fixed as the code does  C--   For now these options are fixed as the code does
# Line 74  C Line 74  C
74        notUsingXPeriodicity       = .FALSE.        notUsingXPeriodicity       = .FALSE.
75        notUsingYPeriodicity       = .FALSE.        notUsingYPeriodicity       = .FALSE.
76        usingMPI                   = .FALSE.        usingMPI                   = .FALSE.
77        nTx                        = 2        nTx                        = 1
78        nTy                        = 2        nTy                        = 1
79    
80  C--   Read in data from eedata file  C--   Read in data from eedata file
81  C     We really ought to be using our environment file reading  C     We really ought to be using our environment file reading
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22