/[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.5 by cnh, Sat Sep 5 17:52:13 1998 UTC revision 1.6 by cnh, Wed Oct 28 03:11:34 1998 UTC
# Line 79  C Line 79  C
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 109  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 123  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)
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22