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

Timestamp:

Dec 20, 2019 5:09:33 PM (4 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/plant_canopy_model_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/plant_canopy_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! Correct single message call, local check 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
@@ -1126 +1130 @@
 !--          Check whether topography and local vegetation on top exceed 
 !--          height of the model domain.
-             k = topo_top_ind(j,i,0)
-             IF ( k + pch_index_ji(j,i) >= nzt + 1 )  THEN
+             IF ( topo_top_ind(j,i,0) + pch_index_ji(j,i) >= nzt + 1 )  THEN
                 message_string =  'Local vegetation height on top of ' //      &
                                   'topography exceeds height of model domain.'
-                CALL message( 'pcm_init', 'PA0674', 2, 2, 0, 6, 0 )
+                CALL message( 'pcm_init', 'PA0674', 2, 2, myid, 6, 0 )
              ENDIF