Changeset 3987 for palm/trunk/SOURCE/urban_surface_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/urban_surface_mod.f90 (modified) (8 diffs)

palm/trunk/SOURCE/urban_surface_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! Introduce alternative switch for debug output during timestepping
+! 
+! 3943 2019-05-02 09:50:41Z maronga
 ! Removed qsws_eb. Bugfix in calculation of qsws.
 ! 
@@ -489 +492 @@
     USE control_parameters,                                                    &
         ONLY:  coupling_start_time, topography,                                &
-               debug_output, debug_string,                                     &
+               debug_output, debug_output_timestep, debug_string,              &
                dt_3d, humidity, indoor_model,                                  &
                intermediate_timestep_count, initializing_actions,              &
@@ -5267 +5270 @@
 
 
-        IF ( debug_output )  THEN
+        IF ( debug_output_timestep )  THEN
            WRITE( debug_string, * ) 'usm_material_heat_model | spinup: ', spinup
            CALL debug_message( debug_string, 'start' )
@@ -5644 +5647 @@
         !$OMP END PARALLEL
 
-        IF ( debug_output )  THEN
+        IF ( debug_output_timestep )  THEN
            WRITE( debug_string, * ) 'usm_material_heat_model | spinup: ', spinup
            CALL debug_message( debug_string, 'end' )
@@ -5682 +5685 @@
 
 
-        IF ( debug_output )  CALL debug_message( 'usm_green_heat_model', 'start' )
+        IF ( debug_output_timestep )  CALL debug_message( 'usm_green_heat_model', 'start' )
 
         drho_l_lv = 1.0_wp / (rho_l * l_v)
@@ -6012 +6015 @@
         ENDDO
 
-        IF ( debug_output )  CALL debug_message( 'usm_green_heat_model', 'end' )
+        IF ( debug_output_timestep )  CALL debug_message( 'usm_green_heat_model', 'end' )
 
     END SUBROUTINE usm_green_heat_model
@@ -7707 +7710 @@
 
 
-        IF ( debug_output )  THEN
+        IF ( debug_output_timestep )  THEN
            WRITE( debug_string, * ) 'usm_surface_energy_balance | spinup: ', spinup
            CALL debug_message( debug_string, 'start' )
@@ -8753 +8756 @@
 !        END SUBROUTINE calc_q_surface_usm
 
-        IF ( debug_output )  THEN
+        IF ( debug_output_timestep )  THEN
            WRITE( debug_string, * ) 'usm_surface_energy_balance | spinup: ', spinup
            CALL debug_message( debug_string, 'end' )