Changeset 4356 for palm/trunk/SOURCE/land_surface_model_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/land_surface_model_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/land_surface_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Correct single message calls, local checks must be given by the respective
+! mpi rank.
+! 
+! 4339 2019-12-13 18:18:30Z suehring
 ! Bugfix, character length too short, caused crash on NEC.
 ! 
@@ -4856 +4860 @@
           message_string = 'For non-pavement surfaces the combination ' //     &
                            ' lai = 0.0 and c_veg = 1.0 is not allowed.'
-          CALL message( 'lsm_rrd_local', 'PA0671', 2, 2, 0, 6, 0 )
+          CALL message( 'lsm_rrd_local', 'PA0671', 2, 2, myid, 6, 0 )
        ENDIF
 
@@ -4865 +4869 @@
              message_string = 'For non-pavement surfaces the combination ' //  &
                               ' lai = 0.0 and c_veg = 1.0 is not allowed.'
-             CALL message( 'lsm_rrd_local', 'PA0671', 2, 2, 0, 6, 0 )
+             CALL message( 'lsm_rrd_local', 'PA0671', 2, 2, myid, 6, 0 )
           ENDIF
        ENDDO