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

Timestamp:

Dec 20, 2019 5:09:33 PM (5 years ago)

Author:

suehring

Message:

Bugfix in message calls for local checks; error messages in init_grid slightly revised; bugfix in time_integration (uninitialized emission time index); read_restart_data (change from J.Resler): use dynamic array allocation rather than automatic arrays to avoid problems with stack memory

File:

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

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Correct single message calls, local checks must be given by the respective
+! mpi rank.
+! 
+! 4346 2019-12-18 11:55:56Z motisi
 ! Introduction of wall_flags_total_0, which currently sets bits based on static
 ! topography information used in wall_flags_static_0
@@ -3495 +3499 @@
                 message_string = 'If vegetation_type = 0 at any location, ' // &
                                  'vegetation_pars is required'
-                CALL message( 'netcdf_data_input_mod', 'PA0555', 2, 2, -1, 6, 0 )
+                CALL message( 'netcdf_data_input_mod', 'PA0555', 2, 2, myid, 6, 0 )
              ENDIF
              IF ( .NOT. root_area_density_lsm_f%from_file )  THEN
@@ -3528 +3532 @@
           message_string = 'If buildings are provided, also building_type ' // &
                            'is required'
-          CALL message( 'netcdf_data_input_mod', 'PA0581', 2, 2, myid, 6, 0 )
+          CALL message( 'netcdf_data_input_mod', 'PA0581', 2, 2, 0, 6, 0 )
        ENDIF
 !
@@ -3535 +3539 @@
           message_string = 'If buildings are provided, also building_id ' //   &
                            'is required'
-          CALL message( 'netcdf_data_input_mod', 'PA0582', 2, 2, myid, 6, 0 )
+          CALL message( 'netcdf_data_input_mod', 'PA0582', 2, 2, 0, 6, 0 )
        ENDIF
 !
@@ -3555 +3559 @@
           message_string = 'If building_type is provided, also building_id '// &
                            'is required'
-          CALL message( 'netcdf_data_input_mod', 'PA0519', 2, 2, myid, 6, 0 )
+          CALL message( 'netcdf_data_input_mod', 'PA0519', 2, 2, 0, 6, 0 )
        ENDIF       
 !
@@ -4838 +4842 @@
                    'non-building coordinates (xs, ys, zenith, azimuth): ',   &
                    xs(isurf), ys(isurf), zenith(isurf), azimuth(isurf)
-                CALL message( 'get_variable_surf', 'PA0684', 2, 2, 0, 6, 0 ) 
+                CALL message( 'get_variable_surf', 'PA0684', 2, 2, myid, 6, 0 ) 
              ENDIF
 !