Changeset 3246 for palm/trunk/SOURCE/message.f90

Timestamp:

Sep 13, 2018 3:14:50 PM (7 years ago)

Author:

sward

Message:

Added error handling for wrong input parameters

File:

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

palm/trunk/SOURCE/message.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Added SUBROUTINE parin_fail_message for error handling of input namelists
+! 
+! 3241 2018-09-12 15:02:00Z raasch
 ! unused variables removed
 ! 
@@ -288 +291 @@
 
  END SUBROUTINE location_message
+
+
+!------------------------------------------------------------------------------!
+! Description:
+! ------------
+!> Prints out the given location on stdout
+!------------------------------------------------------------------------------!
+ 
+ SUBROUTINE parin_fail_message( location, line )
+
+    USE control_parameters,                                                    &
+        ONLY:  message_string
+
+    IMPLICIT NONE
+
+    CHARACTER(LEN=*) ::  location !< text to be output on stdout
+    CHARACTER(LEN=*) ::  line
+
+    message_string = 'Error(s) in NAMELIST '// TRIM(location) //                 &
+                     '&Reading fails at& '// line
+          CALL message( 'parin', 'PA0271', 1, 2, 0, 6, 0 )
+
+ END SUBROUTINE parin_fail_message