Changeset 4128 for palm/trunk


Ignore:
Timestamp:
Jul 30, 2019 4:28:58 PM (5 years ago)
Author:
gronemeier
Message:

Bugfix for opening the parameter file (unit 11): return error message if file was not found.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/check_open.f90

    r4099 r4128  
    2525! -----------------
    2626! $Id$
     27! Bugfix for opening the parameter file (unit 11): return error message if file
     28! was not found.
     29!
     30! 4099 2019-07-15 15:29:37Z suehring
    2731! Bugfix in opening the parameter file (unit 11) in case of ocean precursor
    2832! runs.
     
    338342          ENDIF
    339343
    340           OPEN ( 11, FILE= TRIM( filename ), FORM='FORMATTED', STATUS='OLD' )
     344          OPEN ( 11, FILE= TRIM( filename ), FORM='FORMATTED', STATUS='OLD', IOSTAT=ioerr )
     345
     346          IF ( ioerr /= 0 )  THEN
     347             message_string = 'namelist file "PARIN' // TRIM( coupling_char ) //         &
     348                              '"  or "PARIN_O" not found!' //                            &
     349                              '&Please have a look at the online description of the ' // &
     350                              'error message for further hints.'
     351             CALL message( 'check_open', 'PA0661', 3, 2, 0, 6, 1 )
     352          ENDIF
    341353
    342354       CASE ( 13 )
Note: See TracChangeset for help on using the changeset viewer.