Ignore:
Timestamp:
Sep 13, 2018 3:14:50 PM (3 years ago)
Author:
sward
Message:

Added error handling for wrong input parameters

File:
1 edited

Legend:

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

    r3241 r3246  
    2525! -----------------
    2626! $Id$
     27! Added SUBROUTINE parin_fail_message for error handling of input namelists
     28!
     29! 3241 2018-09-12 15:02:00Z raasch
    2730! unused variables removed
    2831!
     
    288291
    289292 END SUBROUTINE location_message
     293
     294
     295!------------------------------------------------------------------------------!
     296! Description:
     297! ------------
     298!> Prints out the given location on stdout
     299!------------------------------------------------------------------------------!
     300 
     301 SUBROUTINE parin_fail_message( location, line )
     302
     303    USE control_parameters,                                                    &
     304        ONLY:  message_string
     305
     306    IMPLICIT NONE
     307
     308    CHARACTER(LEN=*) ::  location !< text to be output on stdout
     309    CHARACTER(LEN=*) ::  line
     310
     311    message_string = 'Error(s) in NAMELIST '// TRIM(location) //                 &
     312                     '&Reading fails at& '// line
     313          CALL message( 'parin', 'PA0271', 1, 2, 0, 6, 0 )
     314
     315 END SUBROUTINE parin_fail_message
Note: See TracChangeset for help on using the changeset viewer.