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

Timestamp:

May 22, 2019 9:52:13 AM (5 years ago)

Author:

kanani

Message:

clean up location, debug and error messages

File:

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

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! Introduce alternative switch for debug output during timestepping
+! 
+! 3943 2019-05-02 09:50:41Z maronga
 ! Missing blank characteer added.
 ! 
@@ -623 +626 @@
     USE control_parameters,                                                    &
         ONLY:  cloud_droplets, coupling_char,                                  &
-               debug_output, debug_string,                                     &
+               debug_output, debug_output_timestep, debug_string,              &
                dz, dt_spinup, end_time,                                        &
                humidity,                                                       &
@@ -1359 +1362 @@
 
 
-       IF ( debug_output )  CALL debug_message( 'radiation_control', 'start' )
+       IF ( debug_output_timestep )  CALL debug_message( 'radiation_control', 'start' )
 
 
@@ -1377 +1380 @@
        END SELECT
 
-       IF ( debug_output )  CALL debug_message( 'radiation_control', 'end' )
+       IF ( debug_output_timestep )  CALL debug_message( 'radiation_control', 'end' )
 
     END SUBROUTINE radiation_control
@@ -5111 +5114 @@
 
 
-     IF ( debug_output )  CALL debug_message( 'radiation_interaction', 'start' )
+     IF ( debug_output_timestep )  CALL debug_message( 'radiation_interaction', 'start' )
 
      IF ( plant_canopy )  THEN
@@ -5857 +5860 @@
            (emissivity_urb*sigma_sb * area_hor) )**0.25_wp
 
-     IF ( debug_output )  CALL debug_message( 'radiation_interaction', 'end' )
+     IF ( debug_output_timestep )  CALL debug_message( 'radiation_interaction', 'end' )