/[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.7 by adcroft, Tue Dec 8 21:35:08 1998 UTC
# Line 1  Line 1 
1  C $Id$  C $Header$
2    
3  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
4    
# Line 43  C     not fully support features for ove Line 43  C     not fully support features for ove
43  C     and computation.  C     and computation.
44        usingSyncMessages          = .TRUE.        usingSyncMessages          = .TRUE.
45    
46    C--   Text map plots of fields ignore exact zero values
47          printMapIncludesZeros = .FALSE.
48    
49  C--   The remaining parameters here are set to default values.  C--   The remaining parameters here are set to default values.
50  C--   and then any different values are read from an input  C--   and then any different values are read from an input
51  C--   file called "eedata".  C--   file called "eedata".
# Line 71  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
82  C     package - but we haven't written it yet.  C     package - but we have not written it yet.
83    
84  C     Make scratch copies of input data file with and without comments  C     Make scratch copies of input data file with and without comments
85        OPEN(UNIT=scrUnit1,STATUS='SCRATCH')        OPEN(UNIT=scrUnit1,STATUS='SCRATCH')
86        OPEN(UNIT=scrUnit2,STATUS='SCRATCH')        OPEN(UNIT=scrUnit2,STATUS='SCRATCH')
87        OPEN(UNIT=eeDataUnit,FILE='eedata',STATUS='OLD',err=1,IOSTAT=errIO)        OPEN(UNIT=eeDataUnit,FILE='eedata',STATUS='OLD',
88         &     err=1,IOSTAT=errIO)
89        IF ( errIO .GE. 0 ) GOTO 2        IF ( errIO .GE. 0 ) GOTO 2
90      1 CONTINUE      1 CONTINUE
91         WRITE(msgBuf,'(A)')         WRITE(msgBuf,'(A)')
# Line 106  C     Make scratch copies of input data Line 110  C     Make scratch copies of input data
110   1001 CONTINUE   1001 CONTINUE
111        CLOSE(eeDataUnit)        CLOSE(eeDataUnit)
112  C--   Report contents of parameter file  C--   Report contents of parameter file
113        WRITE(msgBuf,'(A)') '// ======================================================='        WRITE(msgBuf,'(A)')
114        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)       & '// ======================================================='
115        WRITE(msgBuf,'(A)') '// Execution Environment parameter file "eedata"'        CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)
116        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)        WRITE(msgBuf,'(A)')
117        WRITE(msgBuf,'(A)') '// ======================================================='       & '// Execution Environment parameter file "eedata"'
118          CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)
119          WRITE(msgBuf,'(A)')
120         & '// ======================================================='
121        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
122       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
123    
# Line 120  C--   Report contents of parameter file Line 127  C--   Report contents of parameter file
127         READ(UNIT=iUnit,FMT='(A)',END=2001) RECORD         READ(UNIT=iUnit,FMT='(A)',END=2001) RECORD
128         IL = MAX(ILNBLNK(RECORD),1)         IL = MAX(ILNBLNK(RECORD),1)
129         WRITE(msgBuf,'(A,A)') '>',RECORD(:IL)         WRITE(msgBuf,'(A,A)') '>',RECORD(:IL)
130         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)         CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, SQUEEZE_RIGHT , 1)
131        GOTO 2000        GOTO 2000
132   2001 CONTINUE   2001 CONTINUE
133        CLOSE(iUnit)        CLOSE(iUnit)
# Line 147  C--   Report contents of parameter file Line 154  C--   Report contents of parameter file
154         STOP 'ABNORMAL END: S/R EESET_PARMS'         STOP 'ABNORMAL END: S/R EESET_PARMS'
155     4  CONTINUE     4  CONTINUE
156    
157    C--   Execution Environment parameter file read
158          CLOSE(iUnit)
159    
160  Cdbg  eeDataUnit = 42  Cdbg  eeDataUnit = 42
161  Cdbg  OPEN(UNIT=eeDataUnit,FILE='eedata',STATUS='OLD',IOSTAT=errIO)  Cdbg  OPEN(UNIT=eeDataUnit,FILE='eedata',STATUS='OLD',IOSTAT=errIO)
162  Cdbg  IF ( errIO .LT. 0 ) GOTO 11  Cdbg  IF ( errIO .LT. 0 ) GOTO 11
# Line 180  C Line 190  C
190  C  C
191        RETURN        RETURN
192        END        END
   
 C $Id$  
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22