Changeset 4157 for palm/trunk/SOURCE/radiation_model_mod.f90

Timestamp:

Aug 14, 2019 9:19:12 AM (5 years ago)

Author:

suehring

Message:

chem_emissions: Replace global arrays also in mode_emis branch; diagnostic output: restructure initialization in order to work also when data output during spin-up is enabled; radiation: give informative message on raytracing distance only by core zero not by all cores

File:

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

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! Give informative message on raytracing distance only by core zero
+! 
+! 4148 2019-08-08 11:26:00Z suehring
 ! Comments added
 ! 
@@ -6301 +6304 @@
           WRITE(message_string, '(a,f6.1)') 'Max_raytracing_dist is set less than ' // &
                'double the urban surface layer height, i.e. ', mrl
-          CALL message('radiation_interaction_init', 'PA0521', 0, 0, -1, 6, 0)
+          CALL message('radiation_interaction_init', 'PA0521', 0, 0, 0, 6, 0 )
        ENDIF
 !        IF ( max_raytracing_dist <= mrl ) THEN