Changeset 3885 for palm/trunk/SOURCE/bulk_cloud_model_mod.f90
- Timestamp:
- Apr 11, 2019 11:29:34 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/bulk_cloud_model_mod.f90
r3874 r3885 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Changes related to global restructuring of location messages and introduction 28 ! of additional debug messages 29 ! 30 ! 3874 2019-04-08 16:53:48Z knoop 27 31 ! Implemented non_transport_physics module interfaces 28 32 ! … … 239 243 240 244 USE control_parameters, & 241 ONLY: dt_3d, dt_do2d_xy, intermediate_timestep_count, & 245 ONLY: debug_output, & 246 dt_3d, dt_do2d_xy, intermediate_timestep_count, & 242 247 intermediate_timestep_count_max, large_scale_forcing, & 243 248 lsf_surf, pt_surface, rho_surface, surface_pressure, & … … 934 939 INTEGER(iwp) :: j !< 935 940 936 CALL location_message( 'initializing bulk cloud module', .FALSE.)941 IF ( debug_output ) CALL debug_message( 'bcm_init', 'start' ) 937 942 938 943 IF ( bulk_cloud_model ) THEN … … 1015 1020 dpirho_l = 1.0_wp / pirho_l 1016 1021 1017 CALL location_message( 'finished', .TRUE.)1022 IF ( debug_output ) CALL debug_message( 'bcm_init', 'end' ) 1018 1023 1019 1024 ELSE 1020 1025 1021 CALL location_message( 'skipped', .TRUE.)1026 IF ( debug_output ) CALL debug_message( 'bcm_init skipped', 'end' ) 1022 1027 1023 1028 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.