Changeset 3054 for palm

Timestamp:

Jun 1, 2018 4:08:59 PM (6 years ago)

Author:

gronemeier

Message:

bugfix: force MPI abort if errors occur while reading bld heights from ASCII

File:

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

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix: force an MPI abort if errors occur while reading building heights
+! from ASCII file
+! 
+! 3053 2018-06-01 12:59:07Z suehring
 ! Revise checks for variable surface_fraction
 ! 
@@ -1954 +1958 @@
  11             message_string = 'errors in file TOPOGRAPHY_DATA'//            &
                                  TRIM( coupling_char )
-                CALL message( 'netcdf_data_input_mod', 'PA0209', 1, 2, 0, 6, 0 )
+                CALL message( 'netcdf_data_input_mod', 'PA0209', 2, 2, 0, 6, 0 )
 
  12             CLOSE( 90 )