Changeset 4388 for palm/trunk/SOURCE/netcdf_data_input_mod.f90

Timestamp:

Jan 28, 2020 4:36:55 PM (5 years ago)

Author:

raasch

Message:

bugfix for error messages while reading ASCII topo file

File:

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

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! 
 ! 
 ! Former revisions:
 ! -----------------
 ! $Id$
+! bugfix for error messages while reading ASCII topo file
+! 
+! 4387 2020-01-28 11:44:20Z banzhafs
 ! Added subroutine get_variable_string_generic ( )
 ! and added to interface get_variable to circumvent
@@ -2705 +2708 @@
  10             message_string = 'file TOPOGRAPHY_DATA'//                      &
                                  TRIM( coupling_char )// ' does not exist'
-                CALL message( 'netcdf_data_input_mod', 'PA0208', 1, 2, 0, 6, 0 )
+                CALL message( 'netcdf_data_input_mod', 'PA0208', 1, 2, myid, 6, 0 )
 
  11             message_string = 'errors in file TOPOGRAPHY_DATA'//            &
                                  TRIM( coupling_char )
-                CALL message( 'netcdf_data_input_mod', 'PA0209', 2, 2, 0, 6, 0 )
+                CALL message( 'netcdf_data_input_mod', 'PA0209', 2, 2, myid, 6, 0 )
 
  12             CLOSE( 90 )