Changeset 3987 for palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90
- Timestamp:
- May 22, 2019 9:52:13 AM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90
r3938 r3987 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Introduce alternative switch for debug output during timestepping 28 ! 29 ! 3938 2019-04-29 16:06:25Z suehring 27 30 ! Remove unused variables 28 31 ! … … 209 212 210 213 USE control_parameters, & 211 ONLY: debug_output, & 212 debug_string, & 214 ONLY: debug_output_timestep, & 213 215 initializing_actions, & 214 216 message_string, & … … 1146 1148 REAL(wp) :: volume_flow_l !< local mass flux through lateral boundary 1147 1149 1148 ! 1149 !-- Debug location message 1150 IF ( debug_output ) THEN 1151 WRITE( debug_string, * ) 'stg_main' 1152 CALL debug_message( debug_string, 'start' ) 1153 ENDIF 1150 1151 IF ( debug_output_timestep ) CALL debug_message( 'stg_main', 'start' ) 1154 1152 ! 1155 1153 !-- Calculate time step which is needed for filter functions … … 1493 1491 !-- Finally, set time counter for calling STG to zero 1494 1492 time_stg_call = 0.0_wp 1495 ! 1496 !-- Debug location message 1497 IF ( debug_output ) THEN 1498 WRITE( debug_string, * ) 'stg_main' 1499 CALL debug_message( debug_string, 'end' ) 1500 ENDIF 1493 1494 IF ( debug_output_timestep ) CALL debug_message( 'stg_main', 'end' ) 1501 1495 1502 1496 END SUBROUTINE stg_main … … 1900 1894 IMPLICIT NONE 1901 1895 1902 ! 1903 !-- Debug location message 1904 IF ( debug_output ) THEN 1905 WRITE( debug_string, * ) 'stg_adjust' 1906 CALL debug_message( debug_string, 'start' ) 1907 ENDIF 1896 1897 IF ( debug_output_timestep ) CALL debug_message( 'stg_adjust', 'start' ) 1908 1898 ! 1909 1899 !-- Compute mean boundary layer height according to Richardson-Bulk … … 1938 1928 !-- Reset time counter for controlling next adjustment to zero 1939 1929 time_stg_adjust = 0.0_wp 1940 ! 1941 !-- Debug location message 1942 IF ( debug_output ) THEN 1943 WRITE( debug_string, * ) 'stg_adjust' 1944 CALL debug_message( debug_string, 'end' ) 1945 ENDIF 1930 1931 IF ( debug_output_timestep ) CALL debug_message( 'stg_adjust', 'end' ) 1946 1932 1947 1933 END SUBROUTINE stg_adjust
Note: See TracChangeset
for help on using the changeset viewer.