Changeset 3885 for palm/trunk/SOURCE/surface_layer_fluxes_mod.f90
- Timestamp:
- Apr 11, 2019 11:29:34 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/surface_layer_fluxes_mod.f90
r3881 r3885 26 26 ! ----------------- 27 27 ! $Id$ 28 ! Changes related to global restructuring of location messages and introduction 29 ! of additional debug messages 30 ! 31 ! 3881 2019-04-10 09:31:22Z suehring 28 32 ! Assure that Obukhov length does not become zero 29 33 ! … … 273 277 ONLY: air_chemistry, cloud_droplets, & 274 278 constant_heatflux, constant_scalarflux, & 275 constant_waterflux, coupling_mode, do_output_at_2m, humidity, & 279 constant_waterflux, coupling_mode, & 280 debug_output, debug_string, & 281 do_output_at_2m, humidity, & 276 282 ibc_e_b, ibc_pt_b, indoor_model, initializing_actions, & 277 283 intermediate_timestep_count, intermediate_timestep_count_max, & … … 356 362 357 363 IMPLICIT NONE 364 365 366 IF ( debug_output ) CALL debug_message( 'surface_layer_fluxes', 'start' ) 358 367 359 368 surf_vertical = .FALSE. !< flag indicating vertically orientated surface elements … … 716 725 ENDDO 717 726 mom_tke = .FALSE. 718 727 728 IF ( debug_output ) CALL debug_message( 'surface_layer_fluxes', 'end' ) 719 729 720 730 END SUBROUTINE surface_layer_fluxes … … 733 743 734 744 735 CALL location_message( 'initializing surface layer', .FALSE.)745 CALL location_message( 'initializing surface layer', 'start' ) 736 746 737 747 ! … … 744 754 ENDIF 745 755 746 CALL location_message( ' finished', .TRUE.)756 CALL location_message( 'initializing surface layer', 'finished' ) 747 757 748 758 END SUBROUTINE init_surface_layer_fluxes
Note: See TracChangeset
for help on using the changeset viewer.