Changeset 4128 for palm

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:

• palm/trunk/SOURCE/check_open.f90 (modified) (2 diffs)

palm/trunk/SOURCE/check_open.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix for opening the parameter file (unit 11): return error message if file
+! was not found.
+! 
+! 4099 2019-07-15 15:29:37Z suehring
 ! Bugfix in opening the parameter file (unit 11) in case of ocean precursor
 ! runs. 
@@ -338 +342 @@
           ENDIF
 
-          OPEN ( 11, FILE= TRIM( filename ), FORM='FORMATTED', STATUS='OLD' )
+          OPEN ( 11, FILE= TRIM( filename ), FORM='FORMATTED', STATUS='OLD', IOSTAT=ioerr )
+
+          IF ( ioerr /= 0 )  THEN
+             message_string = 'namelist file "PARIN' // TRIM( coupling_char ) //         &
+                              '"  or "PARIN_O" not found!' //                            &
+                              '&Please have a look at the online description of the ' // &
+                              'error message for further hints.'
+             CALL message( 'check_open', 'PA0661', 3, 2, 0, 6, 1 )
+          ENDIF
 
        CASE ( 13 )