Changeset 3987 for palm/trunk/SOURCE/nesting_offl_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/nesting_offl_mod.f90 (modified) (6 diffs)

palm/trunk/SOURCE/nesting_offl_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Introduce alternative switch for debug output during timestepping
+! 
+! 3964 2019-05-09 09:48:32Z suehring
 ! Ensure that veloctiy term in calculation of bulk Richardson number does not
 ! become zero
@@ -85 +88 @@
         ONLY:  air_chemistry, bc_dirichlet_l, bc_dirichlet_n, bc_dirichlet_r,  &
                bc_dirichlet_s, dt_3d, dz, constant_diffusion,                  &
-               debug_output, debug_string, humidity, initializing_actions,     &
+               debug_output_timestep,                                          &
+               humidity,                                                       &
+               initializing_actions,                                           &
                message_string, nesting_offline, neutral, passive_scalar,       &
                rans_mode, rans_tke_e, time_since_reference_point, volume_flow
@@ -167 +172 @@
        REAL(wp), DIMENSION(1:3) ::  volume_flow_l   !< local volume flow
 
-!
-!--    Debug location message
-       IF ( debug_output )  THEN
-          WRITE( debug_string, * ) 'nesting_offl_mass_conservation'
-          CALL debug_message( debug_string, 'start' )
-       ENDIF
-       
+
+       IF ( debug_output_timestep )  CALL debug_message( 'nesting_offl_mass_conservation', 'start' )
+
        CALL  cpu_log( log_point(58), 'offline nesting', 'start' )
        
@@ -249 +250 @@
        
        CALL  cpu_log( log_point(58), 'offline nesting', 'stop' )
-!
-!--    Debug location message
-       IF ( debug_output )  THEN
-          WRITE( debug_string, * ) 'nesting_offl_mass_conservation'
-          CALL debug_message( debug_string, 'end' )
-       ENDIF
+
+       IF ( debug_output_timestep )  CALL debug_message( 'nesting_offl_mass_conservation', 'end' )
 
     END SUBROUTINE nesting_offl_mass_conservation
@@ -287 +284 @@
        REAL(wp), DIMENSION(nzb:nzt+1) ::  v_ref_l  !< reference profile for v-component on subdomain
        
-!
-!--    Debug location message
-       IF ( debug_output )  THEN
-          WRITE( debug_string, * ) 'nesting_offl_bc'
-          CALL debug_message( debug_string, 'start' )
-       ENDIF
+
+       IF ( debug_output_timestep )  CALL debug_message( 'nesting_offl_bc', 'start' )
 
        CALL  cpu_log( log_point(58), 'offline nesting', 'start' )      
@@ -828 +821 @@
     
        CALL  cpu_log( log_point(58), 'offline nesting', 'stop' )
-!
-!--    Debug location message
-       IF ( debug_output )  THEN
-          WRITE( debug_string, * ) 'nesting_offl_bc'
-          CALL debug_message( debug_string, 'end' )
-       ENDIF
+
+       IF ( debug_output_timestep )  CALL debug_message( 'nesting_offl_bc', 'end' )
+
 
     END SUBROUTINE nesting_offl_bc