/[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.13 by cnh, Fri Sep 21 03:54:34 2001 UTC revision 1.14 by jamous, Tue Mar 26 18:03:50 2002 UTC
# Line 153  C--   Report contents of parameter file Line 153  C--   Report contents of parameter file
153        READ(UNIT=iUnit,NML=EEPARMS,IOSTAT=errIO,err=3)        READ(UNIT=iUnit,NML=EEPARMS,IOSTAT=errIO,err=3)
154        IF ( errIO .GE. 0 ) GOTO 4        IF ( errIO .GE. 0 ) GOTO 4
155      3 CONTINUE      3 CONTINUE
156    #ifndef TARGET_PWR3
157         WRITE(msgBuf,'(A)')         WRITE(msgBuf,'(A)')
158       &  'S/R EESET_PARMS'       &  'S/R EESET_PARMS'
159         CALL PRINT_ERROR( msgBuf , 1)         CALL PRINT_ERROR( msgBuf , 1)
# Line 164  C--   Report contents of parameter file Line 165  C--   Report contents of parameter file
165         CALL PRINT_ERROR( msgBuf , 1)         CALL PRINT_ERROR( msgBuf , 1)
166         CALL EEDATA_EXAMPLE         CALL EEDATA_EXAMPLE
167         STOP 'ABNORMAL END: S/R EESET_PARMS'         STOP 'ABNORMAL END: S/R EESET_PARMS'
168    #endif
169     4  CONTINUE     4  CONTINUE
170    
171  C--   Execution Environment parameter file read  C--   Execution Environment parameter file read
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22