Changeset 3987 for palm/trunk/SOURCE/prognostic_equations.f90
- Timestamp:
- May 22, 2019 9:52:13 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/prognostic_equations.f90
r3956 r3987 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Introduce alternative switch for debug output during timestepping 28 ! 29 ! 3956 2019-05-07 12:32:52Z monakurppa 27 30 ! Removed salsa calls. 28 31 ! … … 409 412 USE control_parameters, & 410 413 ONLY: constant_diffusion, & 411 debug_output , debug_string,&414 debug_output_timestep, & 412 415 dp_external, dp_level_ind_b, dp_smooth_factor, dpdxy, dt_3d, & 413 416 humidity, intermediate_timestep_count, & … … 523 526 524 527 525 526 IF ( debug_output ) THEN 527 WRITE( debug_string, * ) 'prognostic_equations_cache' 528 CALL debug_message( debug_string, 'start' ) 529 ENDIF 528 IF ( debug_output_timestep ) CALL debug_message( 'prognostic_equations_cache', 'start' ) 530 529 ! 531 530 !-- Time measurement can only be performed for the whole set of equations … … 1071 1070 CALL cpu_log( log_point(32), 'all progn.equations', 'stop' ) 1072 1071 1073 IF ( debug_output ) THEN 1074 WRITE( debug_string, * ) 'prognostic_equations_cache' 1075 CALL debug_message( debug_string, 'end' ) 1076 ENDIF 1072 IF ( debug_output_timestep ) CALL debug_message( 'prognostic_equations_cache', 'end' ) 1077 1073 1078 1074 END SUBROUTINE prognostic_equations_cache … … 1095 1091 1096 1092 1097 IF ( debug_output ) THEN 1098 WRITE( debug_string, * ) 'prognostic_equations_vector' 1099 CALL debug_message( debug_string, 'start' ) 1100 ENDIF 1093 IF ( debug_output_timestep ) CALL debug_message( 'prognostic_equations_vector', 'start' ) 1101 1094 ! 1102 1095 !-- Calculate non advective processes for all other modules … … 1783 1776 CALL module_interface_prognostic_equations() 1784 1777 1785 IF ( debug_output ) THEN 1786 WRITE( debug_string, * ) 'prognostic_equations_vector' 1787 CALL debug_message( debug_string, 'end' ) 1788 ENDIF 1778 IF ( debug_output_timestep ) CALL debug_message( 'prognostic_equations_vector', 'end' ) 1789 1779 1790 1780 END SUBROUTINE prognostic_equations_vector
Note: See TracChangeset
for help on using the changeset viewer.