Changeset 4667 for palm/trunk/SOURCE/time_integration_spinup.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/time_integration_spinup.f90 (modified) (4 diffs)

palm/trunk/SOURCE/time_integration_spinup.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! Improve debug messages during timestepping
 !
 ! Former revisions:
@@ -100 +100 @@
                coupling_start_time,                                                                &
                data_output_during_spinup,                                                          &
+               debug_output_timestep,                                                              &
+               debug_string,                                                                       &
                dopr_n,                                                                             &
                do_sum,                                                                             &
@@ -305 +307 @@
        CALL cpu_log( log_point_s(15), 'timesteps spinup', 'start' )
 
+       IF ( debug_output_timestep )  THEN
+           WRITE( debug_string, * ) 'time_integration_spinup', simulated_time
+           CALL debug_message( debug_string, 'start' )
+       ENDIF
+
 !
 !--    Start of intermediate step loop
@@ -606 +613 @@
        ENDIF
 
+       IF ( debug_output_timestep )  THEN
+           WRITE( debug_string, * ) 'time_integration_spinup', simulated_time
+           CALL debug_message( debug_string, 'end' )
+       ENDIF