/[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.3 by cnh, Thu Apr 23 20:56:54 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 43  C     not fully support features for ove Line 44  C     not fully support features for ove
44  C     and computation.  C     and computation.
45        usingSyncMessages          = .TRUE.        usingSyncMessages          = .TRUE.
46    
47    C--   Text map plots of fields ignore exact zero values
48          printMapIncludesZeros = .FALSE.
49    
50  C--   The remaining parameters here are set to default values.  C--   The remaining parameters here are set to default values.
51  C--   and then any different values are read from an input  C--   and then any different values are read from an input
52  C--   file called "eedata".  C--   file called "eedata".
# Line 70  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
84  C     package - but we haven't written it yet.  C     package - but we have not written it yet.
85    
86  C     Make scratch copies of input data file with and without comments  C     Make scratch copies of input data file with and without comments
87        OPEN(UNIT=scrUnit1,STATUS='SCRATCH')        OPEN(UNIT=scrUnit1,STATUS='SCRATCH')
88        OPEN(UNIT=scrUnit2,STATUS='SCRATCH')        OPEN(UNIT=scrUnit2,STATUS='SCRATCH')
89        OPEN(UNIT=eeDataUnit,FILE='eedata',STATUS='OLD',err=1,IOSTAT=errIO)        OPEN(UNIT=eeDataUnit,FILE='eedata',STATUS='OLD',
90         &     err=1,IOSTAT=errIO)
91        IF ( errIO .GE. 0 ) GOTO 2        IF ( errIO .GE. 0 ) GOTO 2
92      1 CONTINUE      1 CONTINUE
93         WRITE(msgBuf,'(A)')         WRITE(msgBuf,'(A)')
# Line 106  C     Make scratch copies of input data Line 112  C     Make scratch copies of input data
112   1001 CONTINUE   1001 CONTINUE
113        CLOSE(eeDataUnit)        CLOSE(eeDataUnit)
114  C--   Report contents of parameter file  C--   Report contents of parameter file
115        WRITE(msgBuf,'(A)') '// ======================================================='        WRITE(msgBuf,'(A)')
116        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)       & '// ======================================================='
117        WRITE(msgBuf,'(A)') '// Execution Environment parameter file "eedata"'        CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)
118        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)        WRITE(msgBuf,'(A)')
119        WRITE(msgBuf,'(A)') '// ======================================================='       & '// Execution Environment parameter file "eedata"'
120          CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)
121          WRITE(msgBuf,'(A)')
122         & '// ======================================================='
123        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
124       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
125    
# Line 120  C--   Report contents of parameter file Line 129  C--   Report contents of parameter file
129         READ(UNIT=iUnit,FMT='(A)',END=2001) RECORD         READ(UNIT=iUnit,FMT='(A)',END=2001) RECORD
130         IL = MAX(ILNBLNK(RECORD),1)         IL = MAX(ILNBLNK(RECORD),1)
131         WRITE(msgBuf,'(A,A)') '>',RECORD(:IL)         WRITE(msgBuf,'(A,A)') '>',RECORD(:IL)
132         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)         CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, SQUEEZE_RIGHT , 1)
133        GOTO 2000        GOTO 2000
134   2001 CONTINUE   2001 CONTINUE
135        CLOSE(iUnit)        CLOSE(iUnit)
# Line 147  C--   Report contents of parameter file Line 156  C--   Report contents of parameter file
156         STOP 'ABNORMAL END: S/R EESET_PARMS'         STOP 'ABNORMAL END: S/R EESET_PARMS'
157     4  CONTINUE     4  CONTINUE
158    
159    C--   Execution Environment parameter file read
160          CLOSE(iUnit)
161    
162  Cdbg  eeDataUnit = 42  Cdbg  eeDataUnit = 42
163  Cdbg  OPEN(UNIT=eeDataUnit,FILE='eedata',STATUS='OLD',IOSTAT=errIO)  Cdbg  OPEN(UNIT=eeDataUnit,FILE='eedata',STATUS='OLD',IOSTAT=errIO)
164  Cdbg  IF ( errIO .LT. 0 ) GOTO 11  Cdbg  IF ( errIO .LT. 0 ) GOTO 11
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22