/[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.4 by cnh, Wed Aug 19 13:57:42 1998 UTC
# Line 147  C--   Report contents of parameter file Line 147  C--   Report contents of parameter file
147         STOP 'ABNORMAL END: S/R EESET_PARMS'         STOP 'ABNORMAL END: S/R EESET_PARMS'
148     4  CONTINUE     4  CONTINUE
149    
150    C--   Execution Environment parameter file read
151          CLOSE(iUnit)
152    
153  Cdbg  eeDataUnit = 42  Cdbg  eeDataUnit = 42
154  Cdbg  OPEN(UNIT=eeDataUnit,FILE='eedata',STATUS='OLD',IOSTAT=errIO)  Cdbg  OPEN(UNIT=eeDataUnit,FILE='eedata',STATUS='OLD',IOSTAT=errIO)
155  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.4
  ViewVC Help
Powered by ViewVC 1.1.22