/[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.12 by adcroft, Tue May 29 14:01:36 2001 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
5    
# Line 14  C     | before multi-threaded parallelis Line 15  C     | before multi-threaded parallelis
15  C     | an "execution environment" input parameter file holding  |  C     | an "execution environment" input parameter file holding  |
16  C     | information about the number of threads at run-time.     |  C     | information about the number of threads at run-time.     |
17  C     \==========================================================/  C     \==========================================================/
18          IMPLICIT NONE
19    
20  C     === Global variables ===  C     === Global variables ===
21  #include "SIZE.h"  #include "SIZE.h"
# Line 22  C     === Global variables === Line 24  C     === Global variables ===
24  CEndOfInterface  CEndOfInterface
25    
26  C     === Local variables ===  C     === Local variables ===
 C     K - Loop counter  
27  C     iUnit - Work variable for IO unit number  C     iUnit - Work variable for IO unit number
28  C     errIO - IO unit error flag  C     errIO - IO unit error flag
29        INTEGER K, IL        INTEGER IL
30        INTEGER errIO        INTEGER errIO
31        INTEGER iUnit        INTEGER iUnit
32        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
# Line 35  C     errIO - IO unit error flag Line 36  C     errIO - IO unit error flag
36        INTEGER  ILNBLNK        INTEGER  ILNBLNK
37        EXTERNAL ILNBLNK        EXTERNAL ILNBLNK
38        NAMELIST /EEPARMS/        NAMELIST /EEPARMS/
39       & nTx, nTy       & nTx, nTy,usingMPI,useCubedSphereExchange
40    
41    
42  C--   For now these options are fixed as the code does  C--   For now these options are fixed as the code does
# Line 73  C     is made. Line 74  C     is made.
74  C  C
75        notUsingXPeriodicity       = .FALSE.        notUsingXPeriodicity       = .FALSE.
76        notUsingYPeriodicity       = .FALSE.        notUsingYPeriodicity       = .FALSE.
77          useCubedSphereExchange     = .FALSE.
78        usingMPI                   = .FALSE.        usingMPI                   = .FALSE.
79        nTx                        = 2        nTx                        = 1
80        nTy                        = 2        nTy                        = 1
81    
82  C--   Read in data from eedata file  C--   Read in data from eedata file
83  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.12
  ViewVC Help
Powered by ViewVC 1.1.22