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

Timestamp:

Sep 9, 2020 12:52:40 PM (4 years ago)

Author:

pavelkrc

Message:

Limit vertical r_a in USM similarly to horizontal; improve debug messages

File:

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

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -23 +23 @@
 ! Current revisions:
 ! ------------------
-!
+! Improve debug messages during timestepping
 !
 ! Former revisions:
@@ -5884 +5884 @@
 #endif
 
-     IF ( debug_output_timestep )  CALL debug_message( 'radiation_interaction', 'start' )
+     IF ( debug_output_timestep )  THEN
+         WRITE( debug_string, * ) 'radiation_interaction', time_since_reference_point
+         CALL debug_message( debug_string, 'start' )
+     ENDIF
 
      IF ( plant_canopy )  THEN