/[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.1 by cnh, Wed Apr 22 19:15:30 1998 UTC revision 1.8 by adcroft, Tue May 18 17:39:21 1999 UTC
# Line 1  Line 1 
1  C $Id$  C $Header$
2    
3  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
4    
# 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 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 71  C Line 75  C
75        notUsingXPeriodicity       = .FALSE.        notUsingXPeriodicity       = .FALSE.
76        notUsingYPeriodicity       = .FALSE.        notUsingYPeriodicity       = .FALSE.
77        usingMPI                   = .FALSE.        usingMPI                   = .FALSE.
78        nTx                        = 2        nTx                        = 1
79        nTy                        = 2        nTy                        = 1
80    
81  C--   Read in data from eedata file  C--   Read in data from eedata file
82  C     We really ought to be using our environment file reading  C     We really ought to be using our environment file reading
83  C     package - but we haven't written it yet.  C     package - but we have not written it yet.
84    
85  C     Make scratch copies of input data file with and without comments  C     Make scratch copies of input data file with and without comments
86        OPEN(UNIT=scrUnit1,STATUS='SCRATCH')        OPEN(UNIT=scrUnit1,STATUS='SCRATCH')
87        OPEN(UNIT=scrUnit2,STATUS='SCRATCH')        OPEN(UNIT=scrUnit2,STATUS='SCRATCH')
88        OPEN(UNIT=eeDataUnit,FILE='eedata',STATUS='OLD',err=1,IOSTAT=errIO)        OPEN(UNIT=eeDataUnit,FILE='eedata',STATUS='OLD',
89         &     err=1,IOSTAT=errIO)
90        IF ( errIO .GE. 0 ) GOTO 2        IF ( errIO .GE. 0 ) GOTO 2
91      1 CONTINUE      1 CONTINUE
92         WRITE(msgBuf,'(A)')         WRITE(msgBuf,'(A)')
# Line 106  C     Make scratch copies of input data Line 111  C     Make scratch copies of input data
111   1001 CONTINUE   1001 CONTINUE
112        CLOSE(eeDataUnit)        CLOSE(eeDataUnit)
113  C--   Report contents of parameter file  C--   Report contents of parameter file
114        WRITE(msgBuf,'(A)') '// ======================================================='        WRITE(msgBuf,'(A)')
115        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)       & '// ======================================================='
116        WRITE(msgBuf,'(A)') '// Execution Environment parameter file "eedata"'        CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)
117        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)        WRITE(msgBuf,'(A)')
118        WRITE(msgBuf,'(A)') '// ======================================================='       & '// Execution Environment parameter file "eedata"'
119          CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)
120          WRITE(msgBuf,'(A)')
121         & '// ======================================================='
122        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
123       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
124    
# Line 120  C--   Report contents of parameter file Line 128  C--   Report contents of parameter file
128         READ(UNIT=iUnit,FMT='(A)',END=2001) RECORD         READ(UNIT=iUnit,FMT='(A)',END=2001) RECORD
129         IL = MAX(ILNBLNK(RECORD),1)         IL = MAX(ILNBLNK(RECORD),1)
130         WRITE(msgBuf,'(A,A)') '>',RECORD(:IL)         WRITE(msgBuf,'(A,A)') '>',RECORD(:IL)
131         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)         CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, SQUEEZE_RIGHT , 1)
132        GOTO 2000        GOTO 2000
133   2001 CONTINUE   2001 CONTINUE
134        CLOSE(iUnit)        CLOSE(iUnit)
# Line 147  C--   Report contents of parameter file Line 155  C--   Report contents of parameter file
155         STOP 'ABNORMAL END: S/R EESET_PARMS'         STOP 'ABNORMAL END: S/R EESET_PARMS'
156     4  CONTINUE     4  CONTINUE
157    
158    C--   Execution Environment parameter file read
159          CLOSE(iUnit)
160    
161  Cdbg  eeDataUnit = 42  Cdbg  eeDataUnit = 42
162  Cdbg  OPEN(UNIT=eeDataUnit,FILE='eedata',STATUS='OLD',IOSTAT=errIO)  Cdbg  OPEN(UNIT=eeDataUnit,FILE='eedata',STATUS='OLD',IOSTAT=errIO)
163  Cdbg  IF ( errIO .LT. 0 ) GOTO 11  Cdbg  IF ( errIO .LT. 0 ) GOTO 11
# Line 180  C Line 191  C
191  C  C
192        RETURN        RETURN
193        END        END
   
 C $Id$  
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22