Changeset 3885 for palm/trunk/SOURCE
- Timestamp:
- Apr 11, 2019 11:29:34 AM (6 years ago)
- Location:
- palm/trunk/SOURCE
- Files:
-
- 33 edited
-
biometeorology_mod.f90 (modified) (4 diffs)
-
bulk_cloud_model_mod.f90 (modified) (4 diffs)
-
check_parameters.f90 (modified) (3 diffs)
-
chem_emissions_mod.f90 (modified) (7 diffs)
-
chemistry_model_mod.f90 (modified) (8 diffs)
-
cpulog_mod.f90 (modified) (3 diffs)
-
data_output_2d.f90 (modified) (4 diffs)
-
data_output_3d.f90 (modified) (4 diffs)
-
indoor_model_mod.f90 (modified) (5 diffs)
-
init_3d_model.f90 (modified) (14 diffs)
-
init_pegrid.f90 (modified) (3 diffs)
-
land_surface_model_mod.f90 (modified) (8 diffs)
-
message.f90 (modified) (5 diffs)
-
module_interface.f90 (modified) (5 diffs)
-
modules.f90 (modified) (3 diffs)
-
multi_agent_system_mod.f90 (modified) (5 diffs)
-
nesting_offl_mod.f90 (modified) (6 diffs)
-
netcdf_data_input_mod.f90 (modified) (2 diffs)
-
palm.f90 (modified) (3 diffs)
-
parin.f90 (modified) (7 diffs)
-
plant_canopy_model_mod.f90 (modified) (4 diffs)
-
pmc_handle_communicator_mod.f90 (modified) (3 diffs)
-
pmc_interface_mod.f90 (modified) (11 diffs)
-
prognostic_equations.f90 (modified) (6 diffs)
-
radiation_model_mod.f90 (modified) (38 diffs)
-
salsa_mod.f90 (modified) (7 diffs)
-
surface_layer_fluxes_mod.f90 (modified) (6 diffs)
-
synthetic_turbulence_generator_mod.f90 (modified) (7 diffs)
-
time_integration.f90 (modified) (3 diffs)
-
time_integration_spinup.f90 (modified) (3 diffs)
-
urban_surface_mod.f90 (modified) (18 diffs)
-
virtual_flight_mod.f90 (modified) (4 diffs)
-
wind_turbine_model_mod.f90 (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/biometeorology_mod.f90
r3753 r3885 27 27 ! ----------------- 28 28 ! $Id$ 29 ! Changes related to global restructuring of location messages and introduction 30 ! of additional debug messages 31 ! 32 ! 3753 2019-02-19 14:48:54Z dom_dwd_user 29 33 ! - Added automatic setting of mrt_nlevels in case it was not part of 30 34 ! radiation_parameters namelist (or set to 0 accidentially). … … 150 154 151 155 USE control_parameters, & 152 ONLY: average_count_3d, biometeorology, dz, dz_stretch_factor, & 156 ONLY: average_count_3d, biometeorology, & 157 debug_output, & 158 dz, dz_stretch_factor, & 153 159 dz_stretch_level, humidity, initializing_actions, nz_do3d, & 154 160 surface_pressure … … 1209 1215 REAL ( wp ) :: height !< current height in meters 1210 1216 1211 CALL location_message( 'initializing biometeorology module', .FALSE.)1217 IF ( debug_output ) CALL debug_message( 'bio_init', 'start' ) 1212 1218 ! 1213 1219 !-- Determine cell level corresponding to 1.1 m above ground level … … 1229 1235 IF ( uv_exposure ) CALL netcdf_data_input_uvem 1230 1236 1231 CALL location_message( 'finished', .TRUE.)1237 IF ( debug_output ) CALL debug_message( 'bio_init', 'end' ) 1232 1238 1233 1239 END SUBROUTINE bio_init -
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 -
palm/trunk/SOURCE/check_parameters.f90
r3766 r3885 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Changes related to global restructuring of location messages and introduction 28 ! of additional debug messages 29 ! 30 ! 3766 2019-02-26 16:23:41Z raasch 27 31 ! trim added to avoid truncation compiler warnings 28 32 ! … … 859 863 860 864 861 CALL location_message( 'checking parameters', .FALSE.)865 CALL location_message( 'checking parameters', 'start' ) 862 866 ! 863 867 !-- At first, check static and dynamic input for consistency … … 3851 3855 ENDIF 3852 3856 3853 CALL location_message( ' finished', .TRUE.)3857 CALL location_message( 'checking parameters', 'finished' ) 3854 3858 3855 3859 CONTAINS -
palm/trunk/SOURCE/chem_emissions_mod.f90
r3831 r3885 15 15 ! PALM. If not, see <http://www.gnu.org/licenses/>. 16 16 ! 17 ! Copyright 2018-201 8Leibniz Universitaet Hannover18 ! Copyright 2018-201 8Freie Universitaet Berlin19 ! Copyright 2018-201 8Karlsruhe Institute of Technology17 ! Copyright 2018-2019 Leibniz Universitaet Hannover 18 ! Copyright 2018-2019 Freie Universitaet Berlin 19 ! Copyright 2018-2019 Karlsruhe Institute of Technology 20 20 !--------------------------------------------------------------------------------! 21 21 ! … … 27 27 ! ----------------- 28 28 ! $Id$ 29 ! Changes related to global restructuring of location messages and introduction 30 ! of additional debug messages 31 ! 32 ! 3831 2019-03-28 09:11:22Z forkel 29 33 ! added nvar to USE chem_gasphase_mod (chem_modules will not include nvar anymore) 30 34 ! … … 112 116 113 117 USE control_parameters, & 114 ONLY: end_time, message_string, initializing_actions, & 118 ONLY: debug_output, & 119 end_time, message_string, initializing_actions, & 115 120 intermediate_timestep_count, dt_3d 116 121 … … 248 253 249 254 250 CALL location_message( 'Matching input emissions and model chemistry species', .FALSE.)255 IF ( debug_output ) CALL debug_message( 'chem_emissions_match', 'start' ) 251 256 252 257 ! … … 696 701 END SELECT 697 702 703 IF ( debug_output ) CALL debug_message( 'chem_emissions_match', 'end' ) 704 698 705 END SUBROUTINE chem_emissions_match 699 706 … … 728 735 729 736 730 CALL location_message( 'Starting initialization of emission arrays', .FALSE.)737 IF ( debug_output ) CALL debug_message( 'chem_emissions_init', 'start' ) 731 738 732 739 ! … … 802 809 803 810 ENDIF 811 812 IF ( debug_output ) CALL debug_message( 'chem_emissions_init', 'end' ) 804 813 805 814 END SUBROUTINE chem_emissions_init -
palm/trunk/SOURCE/chemistry_model_mod.f90
r3880 r3885 15 15 ! PALM. If not, see <http://www.gnu.org/licenses/>. 16 16 ! 17 ! Copyright 2017-201 8Leibniz Universitaet Hannover18 ! Copyright 2017-201 8Karlsruhe Institute of Technology19 ! Copyright 2017-201 8Freie Universitaet Berlin17 ! Copyright 2017-2019 Leibniz Universitaet Hannover 18 ! Copyright 2017-2019 Karlsruhe Institute of Technology 19 ! Copyright 2017-2019 Freie Universitaet Berlin 20 20 !------------------------------------------------------------------------------! 21 21 ! … … 27 27 ! ----------------- 28 28 ! $Id: chemistry_model_mod.f90 3784 2019-03-05 14:16:20Z banzhafs 29 ! Changes related to global restructuring of location messages and introduction 30 ! of additional debug messages 31 ! 32 ! 3784 2019-03-05 14:16:20Z banzhafs 29 33 ! some formatting of the deposition code 30 34 ! … … 310 314 311 315 USE control_parameters, & 312 ONLY: bc_lr_cyc, bc_ns_cyc, dt_3d, humidity, initializing_actions, message_string, & 316 ONLY: bc_lr_cyc, bc_ns_cyc, & 317 debug_output, & 318 dt_3d, humidity, initializing_actions, message_string, & 313 319 omega, tsc, intermediate_timestep_count, intermediate_timestep_count_max, & 314 320 max_pr_user, timestep_scheme, use_prescribed_profile_data, ws_scheme_sca, air_chemistry … … 1755 1761 INTEGER(iwp) :: j !< running index y dimension 1756 1762 INTEGER(iwp) :: n !< running index for chemical species 1763 1764 1765 IF ( debug_output ) CALL debug_message( 'chem_init', 'start' ) 1757 1766 ! 1758 1767 !-- Next statement is to avoid compiler warning about unused variables … … 1778 1787 ENDIF 1779 1788 1789 IF ( debug_output ) CALL debug_message( 'chem_init', 'end' ) 1780 1790 1781 1791 END SUBROUTINE chem_init … … 1882 1892 !-- Initial profiles of the variables must be computed. 1883 1893 IF ( INDEX( initializing_actions, 'set_1d-model_profiles' ) /= 0 ) THEN 1884 CALL location_message( 'initializing with 1D chemistry model profiles', .FALSE. )1885 1894 ! 1886 1895 !-- Transfer initial profiles to the arrays of the 3D model … … 1897 1906 ELSEIF ( INDEX(initializing_actions, 'set_constant_profiles') /= 0 ) & 1898 1907 THEN 1899 CALL location_message( 'initializing with constant chemistry profiles', .FALSE. )1900 1908 1901 1909 DO lsp = 1, nspec … … 2287 2295 ! write(text,*) 'gas_phase chemistry: solver_type = ',TRIM( solver_type ) 2288 2296 !kk Has to be changed to right calling sequence 2289 !kk CALL location_message( TRIM( text ), .FALSE. )2290 2297 ! IF(myid == 0) THEN 2291 2298 ! write(9,*) ' ' -
palm/trunk/SOURCE/cpulog_mod.f90
r3655 r3885 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Changes related to global restructuring of location messages and introduction 28 ! of additional debug messages 29 ! 30 ! 3655 2019-01-07 16:51:22Z knoop 27 31 ! output format limited to a maximum line length of 80 28 32 ! … … 337 341 338 342 339 CALL location_message( 'calculating cpu statistics', .FALSE.)343 CALL location_message( 'calculating cpu statistics', 'start' ) 340 344 341 345 ! … … 580 584 ENDIF 581 585 582 CALL location_message( 'finished', .TRUE. ) 586 CALL location_message( 'calculating cpu statistics', 'finished' ) 587 583 588 584 589 100 FORMAT (A/11('-')//'CPU measures for ',I5,' PEs (',I5,'(x) * ',I5,'(y', & -
palm/trunk/SOURCE/data_output_2d.f90
r3766 r3885 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Changes related to global restructuring of location messages and introduction 28 ! of additional debug messages 29 ! 30 ! 3766 2019-02-26 16:23:41Z raasch 27 31 ! unused variables removed 28 32 ! … … 298 302 USE control_parameters, & 299 303 ONLY: data_output_2d_on_each_pe, & 300 data_output_xy, data_output_xz, data_output_yz, do2d, & 304 data_output_xy, data_output_xz, data_output_yz, & 305 debug_output, debug_string, & 306 do2d, & 301 307 do2d_xy_last_time, do2d_xy_time_count, & 302 308 do2d_xz_last_time, do2d_xz_time_count, & … … 394 400 REAL(wp), DIMENSION(:,:,:), POINTER :: to_be_resorted !< points to array which shall be output 395 401 402 403 IF ( debug_output ) THEN 404 WRITE( debug_string, * ) 'data_output_2d' 405 CALL debug_message( debug_string, 'start' ) 406 ENDIF 396 407 ! 397 408 !-- Immediate return, if no output is requested (no respective sections … … 2264 2275 CALL cpu_log( log_point(3), 'data_output_2d', 'stop' ) 2265 2276 2277 IF ( debug_output ) THEN 2278 WRITE( debug_string, * ) 'data_output_2d' 2279 CALL debug_message( debug_string, 'end' ) 2280 ENDIF 2281 2266 2282 END SUBROUTINE data_output_2d -
palm/trunk/SOURCE/data_output_3d.f90
r3814 r3885 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Changes related to global restructuring of location messages and introduction 28 ! of additional debug messages 29 ! 30 ! 3814 2019-03-26 08:40:31Z pavelkrc 27 31 ! unused variables removed 28 32 ! … … 258 262 259 263 USE control_parameters, & 260 ONLY: do3d, do3d_no, do3d_time_count, io_blocks, io_group, & 264 ONLY: debug_output, debug_string, & 265 do3d, do3d_no, do3d_time_count, io_blocks, io_group, & 261 266 land_surface, message_string, ntdim_3d, nz_do3d, psolver, & 262 267 time_since_reference_point, urban_surface, varnamelength … … 335 340 !-- Return, if nothing to output 336 341 IF ( do3d_no(av) == 0 ) RETURN 342 343 IF ( debug_output ) THEN 344 WRITE( debug_string, * ) 'data_output_3d' 345 CALL debug_message( debug_string, 'start' ) 346 ENDIF 337 347 338 348 CALL cpu_log (log_point(14),'data_output_3d','start') … … 866 876 CALL cpu_log( log_point(14), 'data_output_3d', 'stop' ) 867 877 878 IF ( debug_output ) THEN 879 WRITE( debug_string, * ) 'data_output_3d' 880 CALL debug_message( debug_string, 'end' ) 881 ENDIF 882 868 883 END SUBROUTINE data_output_3d -
palm/trunk/SOURCE/indoor_model_mod.f90
r3786 r3885 15 15 ! PALM. If not, see <http://www.gnu.org/licenses/>. 16 16 ! 17 ! Copyright 2018-201 8Leibniz Universitaet Hannover18 ! Copyright 2018-201 8Hochschule Offenburg17 ! Copyright 2018-2019 Leibniz Universitaet Hannover 18 ! Copyright 2018-2019 Hochschule Offenburg 19 19 !--------------------------------------------------------------------------------! 20 20 ! … … 26 26 ! ----------------- 27 27 ! $Id$ 28 ! Changes related to global restructuring of location messages and introduction 29 ! of additional debug messages 30 ! 31 ! 3786 2019-03-06 16:58:03Z raasch 28 32 ! unused variables removed 29 33 ! … … 89 93 90 94 USE control_parameters, & 91 ONLY: initializing_actions95 ONLY: debug_output, initializing_actions 92 96 93 97 USE kinds … … 432 436 !< on local subdomain 433 437 434 CALL location_message( 'initializing indoor model', .FALSE.)438 IF ( debug_output ) CALL debug_message( 'im_init', 'start' ) 435 439 436 440 ! … … 961 965 ENDDO 962 966 963 CALL location_message( 'finished', .TRUE.)967 IF ( debug_output ) CALL debug_message( 'im_init', 'end' ) 964 968 965 969 END SUBROUTINE im_init -
palm/trunk/SOURCE/init_3d_model.f90
r3849 r3885 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Changes related to global restructuring of location messages and introduction 28 ! of additional debug messages 29 ! 30 ! 3849 2019-04-01 16:35:16Z knoop 27 31 ! Move initialization of rmask before initializing user_init_arrays 28 32 ! … … 723 727 INTEGER(iwp) :: nz_s_shift_l !< topography-top index on scalar-grid, used to vertically shift initial profiles 724 728 725 CALL location_message( 'allocating arrays', .FALSE. ) 729 CALL location_message( 'init_3d_model', 'start' ) 730 CALL location_message( 'allocating arrays', 'start' ) 726 731 ! 727 732 !-- Allocate arrays … … 1072 1077 intermediate_timestep_count = 0 ! needed when simulated_time = 0.0 1073 1078 1074 CALL location_message( ' finished', .TRUE.)1079 CALL location_message( 'allocating arrays', 'finished' ) 1075 1080 1076 1081 ! … … 1095 1100 !-- Initialization with provided input data derived from larger-scale model 1096 1101 IF ( INDEX( initializing_actions, 'inifor' ) /= 0 ) THEN 1097 CALL location_message( 'initializing with INIFOR', .FALSE.)1102 CALL location_message( 'initializing with INIFOR', 'start' ) 1098 1103 ! 1099 1104 !-- Read initial 1D profiles or 3D data from NetCDF file, depending … … 1247 1252 IF( use_syn_turb_gen ) CALL stg_init 1248 1253 1249 CALL location_message( ' finished', .TRUE.)1254 CALL location_message( 'initializing with INIFOR', 'finished' ) 1250 1255 ! 1251 1256 !-- Initialization via computed 1D-model profiles 1252 1257 ELSEIF ( INDEX( initializing_actions, 'set_1d-model_profiles' ) /= 0 ) THEN 1253 1258 1254 CALL location_message( 'initializing with 1D model profiles', .FALSE.)1259 CALL location_message( 'initializing with 1D model profiles', 'start' ) 1255 1260 ! 1256 1261 !-- Use solutions of the 1D model as initial profiles, … … 1317 1322 IF( use_syn_turb_gen ) CALL stg_init 1318 1323 1319 CALL location_message( ' finished', .TRUE.)1324 CALL location_message( 'initializing with 1D model profiles', 'finished' ) 1320 1325 1321 1326 ELSEIF ( INDEX(initializing_actions, 'set_constant_profiles') /= 0 ) & 1322 1327 THEN 1323 1328 1324 CALL location_message( 'initializing with constant profiles', .FALSE.)1329 CALL location_message( 'initializing with constant profiles', 'start' ) 1325 1330 1326 1331 ! … … 1388 1393 IF( use_syn_turb_gen ) CALL stg_init 1389 1394 1390 CALL location_message( ' finished', .TRUE.)1395 CALL location_message( 'initializing with constant profiles', 'finished' ) 1391 1396 1392 1397 ELSEIF ( INDEX(initializing_actions, 'by_user') /= 0 ) & 1393 1398 THEN 1394 1399 1395 CALL location_message( 'initializing by user', .FALSE.)1400 CALL location_message( 'initializing by user', 'start' ) 1396 1401 ! 1397 1402 !-- Pre-initialize surface variables, i.e. setting start- and end-indices … … 1403 1408 CALL user_init_3d_model 1404 1409 1405 CALL location_message( 'finished', .TRUE. ) 1406 1407 ENDIF 1408 1409 CALL location_message( 'initializing statistics, boundary conditions, etc.', & 1410 .FALSE. ) 1410 CALL location_message( 'initializing by user', 'finished' ) 1411 1412 ENDIF 1413 1414 CALL location_message( 'initializing statistics, boundary conditions, etc.', 'start' ) 1411 1415 1412 1416 ! … … 1542 1546 ENDIF 1543 1547 1544 CALL location_message( ' finished', .TRUE.)1548 CALL location_message( 'initializing statistics, boundary conditions, etc.', 'finished' ) 1545 1549 1546 1550 ELSEIF ( TRIM( initializing_actions ) == 'read_restart_data' .OR. & … … 1548 1552 THEN 1549 1553 1550 CALL location_message( 'initializing in case of restart / cyclic_fill', & 1551 .FALSE. ) 1554 CALL location_message( 'initializing in case of restart / cyclic_fill', 'start' ) 1552 1555 ! 1553 1556 !-- Initialize surface elements and its attributes, e.g. heat- and … … 1813 1816 use_syn_turb_gen ) CALL stg_init 1814 1817 1815 CALL location_message( ' finished', .TRUE.)1818 CALL location_message( 'initializing in case of restart / cyclic_fill', 'finished' ) 1816 1819 1817 1820 ELSE … … 2181 2184 !$ACC COPY(v(nzb:nzt+1,nysg:nyng,nxlg:nxrg)) 2182 2185 2183 CALL location_message( 'creating initial disturbances', .FALSE.)2186 CALL location_message( 'creating initial disturbances', 'start' ) 2184 2187 CALL disturb_field( 'u', tend, u ) 2185 2188 CALL disturb_field( 'v', tend, v ) 2186 CALL location_message( ' finished', .TRUE.)2189 CALL location_message( 'creating initial disturbances', 'finished' ) 2187 2190 2188 2191 !$ACC DATA & … … 2201 2204 !$ACC COPYIN(bc_h(1)%k(1:bc_h(1)%ns)) 2202 2205 2203 CALL location_message( ' calling pressure solver', .FALSE.)2206 CALL location_message( 'applying pressure solver', 'start' ) 2204 2207 n_sor = nsor_ini 2205 2208 CALL pres 2206 2209 n_sor = nsor 2207 CALL location_message( ' finished', .TRUE.)2210 CALL location_message( 'applying pressure solver', 'finished' ) 2208 2211 2209 2212 !$ACC END DATA … … 2418 2421 2419 2422 2420 CALL location_message( ' leaving init_3d_model', .TRUE.)2423 CALL location_message( 'init_3d_model', 'finished' ) 2421 2424 2422 2425 END SUBROUTINE init_3d_model -
palm/trunk/SOURCE/init_pegrid.f90
r3884 r3885 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Changes related to global restructuring of location messages and introduction 28 ! of additional debug messages 29 ! 30 ! 3884 2019-04-10 13:31:55Z Giersch 27 31 ! id_recycling is only calculated in case of tubulent inflow 28 32 ! … … 348 352 #if defined( __parallel ) 349 353 350 CALL location_message( 'creating virtual PE grids + MPI derived data types', & 351 .FALSE. ) 354 CALL location_message( 'creating virtual PE grids + MPI derived data types', 'start' ) 352 355 353 356 ! … … 1394 1397 ENDIF 1395 1398 1396 CALL location_message( ' finished', .TRUE.)1399 CALL location_message( 'creating virtual PE grids + MPI derived data types', 'finished' ) 1397 1400 1398 1401 #else -
palm/trunk/SOURCE/land_surface_model_mod.f90
r3881 r3885 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Changes related to global restructuring of location messages and introduction 28 ! of additional debug messages 29 ! 30 ! 3881 2019-04-10 09:31:22Z suehring 27 31 ! Bugfix in level 3 initialization of pavement albedo type and pavement 28 32 ! emissivity … … 544 548 545 549 USE control_parameters, & 546 ONLY: cloud_droplets, coupling_start_time, dt_3d, & 550 ONLY: cloud_droplets, coupling_start_time, & 551 debug_output, debug_string, & 552 dt_3d, & 547 553 end_time, humidity, intermediate_timestep_count, & 548 554 initializing_actions, intermediate_timestep_count_max, & … … 1890 1896 TYPE(surf_type), POINTER :: surf !< surface-date type variable 1891 1897 1898 ! 1899 !-- Debug location message 1900 IF ( debug_output ) THEN 1901 WRITE( debug_string, * ) 'lsm_energy_balance', horizontal, l 1902 CALL debug_message( debug_string, 'start' ) 1903 ENDIF 1904 1892 1905 IF ( horizontal ) THEN 1893 1906 surf => surf_lsm_h … … 2449 2462 IF ( horizontal .AND. .NOT. constant_roughness ) CALL calc_z0_water_surface 2450 2463 2451 2464 IF ( debug_output ) THEN 2465 WRITE( debug_string, * ) 'lsm_energy_balance', horizontal, l 2466 CALL debug_message( debug_string, 'end' ) 2467 ENDIF 2468 2452 2469 CONTAINS 2453 2470 !------------------------------------------------------------------------------! … … 2632 2649 REAL(wp), DIMENSION(:), ALLOCATABLE :: pr_soil_init !< temporary array used for averaging soil profiles 2633 2650 2634 CALL location_message( 'initializing land surface model', .FALSE.)2651 IF ( debug_output ) CALL debug_message( 'lsm_init', 'start' ) 2635 2652 ! 2636 2653 !-- If no cloud physics is used, rho_surface has not been calculated before … … 4942 4959 ENDDO 4943 4960 4944 CALL location_message( 'finished', .TRUE.)4961 IF ( debug_output ) CALL debug_message( 'lsm_init', 'end' ) 4945 4962 4946 4963 END SUBROUTINE lsm_init … … 5271 5288 TYPE(surf_type), POINTER :: surf !< surface-date type variable 5272 5289 5290 5291 IF ( debug_output ) THEN 5292 WRITE( debug_string, * ) 'lsm_soil_model', horizontal, l, calc_soil_moisture 5293 CALL debug_message( debug_string, 'start' ) 5294 ENDIF 5295 5273 5296 IF ( horizontal ) THEN 5274 5297 surf => surf_lsm_h … … 5566 5589 ENDDO 5567 5590 !$OMP END PARALLEL 5591 ! 5592 !-- Debug location message 5593 IF ( debug_output ) THEN 5594 WRITE( debug_string, * ) 'lsm_soil_model', horizontal, l, calc_soil_moisture 5595 CALL debug_message( debug_string, 'end' ) 5596 ENDIF 5568 5597 5569 5598 END SUBROUTINE lsm_soil_model -
palm/trunk/SOURCE/message.f90
r3655 r3885 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Changes related to global restructuring of location messages and introduction 28 ! of additional debug messages 29 ! 30 ! 3655 2019-01-07 16:51:22Z knoop 27 31 ! Minor formating changes 28 32 ! … … 199 203 ! 200 204 !-- Output on stdout 201 WRITE( *, '( //A/)' ) TRIM( header_string )205 WRITE( *, '(6X,A)' ) TRIM( header_string ) 202 206 ! 203 207 !-- Cut message string into pieces and output one piece per line. … … 210 214 i = INDEX( message_string, '&' ) 211 215 ENDDO 212 WRITE( *, '(4X,A)' ) TRIM( message_string ) 213 WRITE( *, '(4X,A)' ) '' 214 WRITE( *, '(4X,A)' ) TRIM( information_string_1 ) 215 WRITE( *, '(4X,A)' ) TRIM( information_string_2 ) 216 WRITE( *, '(4X,A)' ) '' 216 WRITE( *, '(10X,A)' ) '' 217 WRITE( *, '(10X,A)' ) TRIM( message_string ) 218 WRITE( *, '(10X,A)' ) '' 219 WRITE( *, '(10X,A)' ) TRIM( information_string_1 ) 220 WRITE( *, '(10X,A)' ) TRIM( information_string_2 ) 221 WRITE( *, '(10X,A)' ) '' 217 222 218 223 ELSE … … 261 266 262 267 263 !------------------------------------------------------------------------------ !268 !--------------------------------------------------------------------------------------------------! 264 269 ! Description: 265 270 ! ------------ 266 271 !> Prints out the given location on stdout 267 !------------------------------------------------------------------------------ !272 !--------------------------------------------------------------------------------------------------! 268 273 269 SUBROUTINE location_message( location, advance )270 271 272 USE, INTRINSIC :: ISO_FORTRAN_ENV, &274 SUBROUTINE location_message( location, message_type ) 275 276 277 USE, INTRINSIC :: ISO_FORTRAN_ENV, & 273 278 ONLY: OUTPUT_UNIT 274 279 275 280 USE pegrid 276 281 277 USE pmc_interface, &282 USE pmc_interface, & 278 283 ONLY: cpl_id 279 284 280 285 IMPLICIT NONE 281 286 282 CHARACTER(LEN=*) :: location !< text to be output on stdout 283 LOGICAL :: advance !< switch for advancing/noadvancing I/O 284 287 CHARACTER(LEN=*) :: location !< text to be output on stdout 288 CHARACTER(LEN=*) :: message_type !< attribute marking 'start' or 'end' of routine 289 CHARACTER(LEN=11) :: message_type_string = ' ' !< 290 CHARACTER(LEN=10) :: system_time !< system clock time 291 CHARACTER(LEN=10) :: time 285 292 ! 286 293 !-- Output for nested runs only on the root domain … … 288 295 289 296 IF ( myid == 0 ) THEN 290 IF ( advance ) THEN 291 WRITE ( OUTPUT_UNIT, '(6X,''--- '',A)' ) TRIM( location ) 292 ELSE 293 WRITE ( OUTPUT_UNIT, '(6X,''... '',A)', ADVANCE='NO' ) & 294 TRIM( location ) 295 ENDIF 297 ! 298 !-- Get system time for debug info output (helpful to estimate the required computing time for 299 !-- specific parts of code 300 CALL date_and_time( TIME=time ) 301 system_time = time(1:2)//':'//time(3:4)//':'//time(5:6) 302 ! 303 !-- Write pre-string depending on message_type 304 IF ( TRIM( message_type ) == 'start' ) WRITE( message_type_string, * ) '-', TRIM( message_type ), '----' 305 IF ( TRIM( message_type ) == 'finished' ) WRITE( message_type_string, * ) '-', TRIM( message_type ), '-' 306 ! 307 !-- Write and flush debug location or info message to file 308 WRITE( OUTPUT_UNIT, 200 ) TRIM( message_type_string ), TRIM( location ), TRIM( system_time ) 296 309 FLUSH( OUTPUT_UNIT ) 310 ! 311 !-- Message formats 312 200 FORMAT ( 3X, A, ' ', A, ' | System time: ', A ) 313 297 314 ENDIF 298 315 299 316 END SUBROUTINE location_message 317 318 319 !--------------------------------------------------------------------------------------------------! 320 ! Description: 321 ! ------------ 322 !> Prints out the given debug information to unit 9 (DEBUG files in temporary directory) 323 !> for each PE on each domain. 324 !--------------------------------------------------------------------------------------------------! 325 326 SUBROUTINE debug_message( debug_string, message_type ) 327 328 329 USE control_parameters, & 330 ONLY: current_timestep_number 331 332 IMPLICIT NONE 333 334 335 CHARACTER(LEN=*) :: debug_string !< debug message to be output on unit 9 336 CHARACTER(LEN=*) :: message_type !< 'start', 'end', 'info' 337 CHARACTER(LEN=10) :: message_type_string = ' ' !< 338 CHARACTER(LEN=10) :: system_time !< system clock time 339 CHARACTER(LEN=10) :: time 340 341 INTEGER, PARAMETER :: debug_output_unit = 9 342 343 ! 344 !-- Get system time for debug info output (helpful to estimate the required computing time for 345 !-- specific parts of code 346 CALL date_and_time( TIME=time ) 347 system_time = time(1:2)//':'//time(3:4)//':'//time(5:6) 348 ! 349 !-- Write pre-string depending on message_type 350 IF ( TRIM( message_type ) == 'start' ) WRITE( message_type_string, * ) '-', TRIM( message_type ), '-' 351 IF ( TRIM( message_type ) == 'end' ) WRITE( message_type_string, * ) '-', TRIM( message_type ), '---' 352 IF ( TRIM( message_type ) == 'info' ) WRITE( message_type_string, * ) '-', TRIM( message_type ), '--' 353 ! 354 !-- Write and flush debug location or info message to file 355 WRITE( debug_output_unit, 201 ) TRIM( system_time ), current_timestep_number, TRIM( message_type_string ), TRIM( debug_string ) 356 FLUSH( debug_output_unit ) 357 358 ! 359 !-- Message formats 360 201 FORMAT ( 'System time: ', A, ' | timestep: ', I6, ' | ', A, ' ', A ) 361 362 363 END SUBROUTINE debug_message 300 364 301 365 -
palm/trunk/SOURCE/module_interface.f90
r3880 r3885 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Changes related to global restructuring of location messages and introduction 28 ! of additional debug messages 29 ! 30 ! 3880 2019-04-08 21:43:02Z knoop 27 31 ! Add a call for salsa_prognostic_equations 28 32 ! … … 790 794 791 795 796 CALL location_message( 'initializing module-specific arrays', 'start' ) 797 792 798 IF ( bulk_cloud_model ) CALL bcm_init_arrays 793 799 IF ( air_chemistry ) CALL chem_init_arrays … … 801 807 IF ( user_module_enabled ) CALL user_init_arrays 802 808 809 CALL location_message( 'initializing module-specific arrays', 'finished' ) 810 803 811 804 812 END SUBROUTINE module_interface_init_arrays … … 812 820 SUBROUTINE module_interface_init 813 821 822 823 CALL location_message( 'initializing module features', 'start' ) 814 824 815 825 IF ( biometeorology ) CALL bio_init … … 831 841 IF ( user_module_enabled ) CALL user_init 832 842 843 CALL location_message( 'initializing module features', 'finished' ) 844 833 845 834 846 END SUBROUTINE module_interface_init -
palm/trunk/SOURCE/modules.f90
r3871 r3885 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Changes related to global restructuring of location messages and introduction 28 ! of additional debug messages 29 ! 30 ! 3871 2019-04-08 14:38:39Z knoop 27 31 ! Initialized parameter region 28 32 ! … … 1146 1150 CHARACTER (LEN=100) :: restart_string = ' ' !< for storing strings in case of writing/reading restart data 1147 1151 CHARACTER (LEN=210) :: run_description_header !< string containing diverse run informations as run identifier, coupling mode, host, ensemble number, run date and time 1152 CHARACTER (LEN=1000) :: debug_string = ' ' !<..... 1148 1153 CHARACTER (LEN=1000) :: message_string = ' ' !< dynamic string for error message output 1149 1154 … … 1318 1323 LOGICAL :: data_output_during_spinup = .FALSE. !< namelist parameter 1319 1324 LOGICAL :: data_output_2d_on_each_pe = .TRUE. !< namelist parameter 1325 LOGICAL :: debug_output = .FALSE. !< namelist parameter 1320 1326 LOGICAL :: disturbance_created = .FALSE. !< flow disturbance imposed? 1321 1327 LOGICAL :: do2d_at_begin = .FALSE. !< namelist parameter -
palm/trunk/SOURCE/multi_agent_system_mod.f90
r3876 r3885 15 15 ! PALM. If not, see <http://www.gnu.org/licenses/>. 16 16 ! 17 ! Copyright 2016 Leibniz Universitaet Hannover17 ! Copyright 2016-2019 Leibniz Universitaet Hannover 18 18 !------------------------------------------------------------------------------! 19 19 ! … … 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Changes related to global restructuring of location messages and introduction 28 ! of additional debug messages 29 ! 30 ! 3876 2019-04-08 18:41:49Z knoop 27 31 ! replaced nspec by nvar: only variable species should bconsidered, fixed species are not relevant 28 32 ! … … 109 113 110 114 USE control_parameters, & 111 ONLY: biometeorology, dt_3d, dt_write_agent_data, message_string, & 115 ONLY: biometeorology, & 116 debug_output, & 117 debug_string, & 118 dt_3d, & 119 dt_write_agent_data, & 120 message_string, & 112 121 time_since_reference_point 113 122 … … 387 396 LOGICAL :: first_loop_stride !< flag for first loop stride of agent sub-timesteps 388 397 LOGICAL, SAVE :: first_call = .TRUE. !< first call of mas flag for output 398 ! 399 !-- Debug location message 400 IF ( debug_output ) THEN 401 WRITE( debug_string, * ) 'multi_agent_system' 402 CALL debug_message( debug_string, 'start' ) 403 ENDIF 389 404 390 405 CALL cpu_log( log_point(9), 'mas', 'start' ) … … 607 622 608 623 CALL cpu_log( log_point(9), 'mas', 'stop' ) 624 ! 625 !-- Debug location message 626 IF ( debug_output ) THEN 627 WRITE( debug_string, * ) 'multi_agent_system' 628 CALL debug_message( debug_string, 'end' ) 629 ENDIF 609 630 610 631 END SUBROUTINE multi_agent_system -
palm/trunk/SOURCE/nesting_offl_mod.f90
r3876 r3885 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Changes related to global restructuring of location messages and introduction 28 ! of additional debug messages 29 ! 30 ! 27 31 ! Do local data exchange for chemistry variables only when boundary data is 28 32 ! coming from dynamic file … … 68 72 USE control_parameters, & 69 73 ONLY: air_chemistry, bc_dirichlet_l, bc_dirichlet_n, bc_dirichlet_r, & 70 bc_dirichlet_s, dt_3d, dz, constant_diffusion, humidity, & 74 bc_dirichlet_s, dt_3d, dz, constant_diffusion, & 75 debug_output, debug_string, & 76 humidity, & 71 77 message_string, nesting_offline, neutral, passive_scalar, & 72 78 rans_mode, rans_tke_e, time_since_reference_point, volume_flow … … 150 156 REAL(wp), DIMENSION(1:3) :: volume_flow_l !< local volume flow 151 157 158 ! 159 !-- Debug location message 160 IF ( debug_output ) THEN 161 WRITE( debug_string, * ) 'nesting_offl_mass_conservation' 162 CALL debug_message( debug_string, 'start' ) 163 ENDIF 152 164 153 165 CALL cpu_log( log_point(58), 'offline nesting', 'start' ) … … 226 238 227 239 CALL cpu_log( log_point(58), 'offline nesting', 'stop' ) 240 ! 241 !-- Debug location message 242 IF ( debug_output ) THEN 243 WRITE( debug_string, * ) 'nesting_offl_mass_conservation' 244 CALL debug_message( debug_string, 'end' ) 245 ENDIF 228 246 229 247 END SUBROUTINE nesting_offl_mass_conservation … … 258 276 REAL(wp), DIMENSION(nzb:nzt+1) :: v_ref_l !< reference profile for v-component on subdomain 259 277 278 ! 279 !-- Debug location message 280 IF ( debug_output ) THEN 281 WRITE( debug_string, * ) 'nesting_offl_bc' 282 CALL debug_message( debug_string, 'start' ) 283 ENDIF 284 260 285 CALL cpu_log( log_point(58), 'offline nesting', 'start' ) 261 286 ! … … 782 807 783 808 CALL cpu_log( log_point(58), 'offline nesting', 'stop' ) 809 ! 810 !-- Debug location message 811 IF ( debug_output ) THEN 812 WRITE( debug_string, * ) 'nesting_offl_bc' 813 CALL debug_message( debug_string, 'end' ) 814 ENDIF 784 815 785 816 END SUBROUTINE nesting_offl_bc -
palm/trunk/SOURCE/netcdf_data_input_mod.f90
r3864 r3885 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Changes related to global restructuring of location messages and introduction 28 ! of additional debug messages 29 ! 30 ! 3864 2019-04-05 09:01:56Z monakurppa 27 31 ! get_variable_4d_to_3d_real modified to enable read in data of type 28 32 ! data(t,y,x,n) one timestep at a time + some routines made public … … 1391 1395 !-- 1392 1396 !> Start the processing of the data 1393 CALL location_message( 'starting allocation of chemistry emissions arrays', .FALSE. )1394 1397 1395 1398 !> Parameterized mode of the emissions -
palm/trunk/SOURCE/palm.f90
r3761 r3885 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Changes related to global restructuring of location messages and introduction 28 ! of additional debug messages 29 ! 30 ! 3761 2019-02-25 15:31:42Z raasch 27 31 ! unused variable removed 28 32 ! … … 573 577 CALL cpu_log( log_point(22), 'wrd_local', 'start' ) 574 578 575 CALL location_message( 'writing restart data', .FALSE.)579 CALL location_message( 'writing restart data', 'start' ) 576 580 577 581 DO i = 0, io_blocks-1 … … 597 601 ENDDO 598 602 599 CALL location_message( ' finished', .TRUE.)603 CALL location_message( 'writing restart data', 'finished' ) 600 604 601 605 CALL cpu_log( log_point(22), 'wrd_local', 'stop' ) -
palm/trunk/SOURCE/parin.f90
r3806 r3885 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Changes related to global restructuring of location messages and introduction 28 ! of additional debug messages 29 ! 30 ! 3806 2019-03-21 12:45:50Z raasch 27 31 ! additional check for lateral boundary conditions added 28 32 ! … … 690 694 cpu_log_barrierwait, create_disturbances, & 691 695 cross_profiles, data_output, data_output_masks, & 692 data_output_pr, data_output_2d_on_each_pe, disturbance_amplitude, & 696 data_output_pr, data_output_2d_on_each_pe, & 697 debug_output, & 698 disturbance_amplitude, & 693 699 disturbance_energy_limit, disturbance_level_b, & 694 700 disturbance_level_t, do2d_at_begin, do3d_at_begin, & … … 712 718 cpu_log_barrierwait, create_disturbances, & 713 719 cross_profiles, data_output, data_output_masks, & 714 data_output_pr, data_output_2d_on_each_pe, disturbance_amplitude, & 720 data_output_pr, data_output_2d_on_each_pe, & 721 debug_output, & 722 disturbance_amplitude, & 715 723 disturbance_energy_limit, disturbance_level_b, & 716 724 disturbance_level_t, do2d_at_begin, do3d_at_begin, & … … 739 747 !-- First read values of environment variables (this NAMELIST file is 740 748 !-- generated by palmrun) 741 CALL location_message( 'reading environment parameters from ENVPAR', .FALSE.)749 CALL location_message( 'reading environment parameters from ENVPAR', 'start' ) 742 750 743 751 OPEN ( 90, FILE='ENVPAR', STATUS='OLD', FORM='FORMATTED', IOSTAT=ioerr ) … … 762 770 ENDIF 763 771 764 CALL location_message( ' finished', .TRUE.)772 CALL location_message( 'reading environment parameters from ENVPAR', 'finished' ) 765 773 ! 766 774 !-- Calculate the number of groups into which parallel I/O is split. … … 794 802 io_group = MOD( global_id+1, io_blocks ) 795 803 796 CALL location_message( 'reading NAMELIST parameters from PARIN', .FALSE.)804 CALL location_message( 'reading NAMELIST parameters from PARIN', 'start' ) 797 805 ! 798 806 !-- Data is read in parallel by groups of PEs … … 1098 1106 ENDDO 1099 1107 1100 CALL location_message( ' finished', .TRUE.)1108 CALL location_message( 'reading NAMELIST parameters from PARIN', 'finished' ) 1101 1109 1102 1110 END SUBROUTINE parin -
palm/trunk/SOURCE/plant_canopy_model_mod.f90
r3864 r3885 16 16 ! 17 17 ! Copyright 1997-2019 Leibniz Universitaet Hannover 18 ! Copyright 201 8Institute of Computer Science of the19 ! Czech Academy of Sciences, Prague18 ! Copyright 2017-2019 Institute of Computer Science of the 19 ! Czech Academy of Sciences, Prague 20 20 !------------------------------------------------------------------------------! 21 21 ! 22 22 ! Current revisions: 23 23 ! ------------------ 24 ! 24 ! 25 25 ! 26 26 ! Former revisions: 27 27 ! ----------------- 28 28 ! $Id$ 29 ! Changes related to global restructuring of location messages and introduction 30 ! of additional debug messages 31 ! 32 ! 3864 2019-04-05 09:01:56Z monakurppa 29 33 ! unsed variables removed 30 34 ! … … 254 258 ONLY: c_p, degc_to_k, l_v, lv_d_cp, r_d, rd_d_rv 255 259 256 USE control_parameters, &257 ONLY: humidity260 USE control_parameters, & 261 ONLY: debug_output, humidity 258 262 259 263 USE indices, & … … 913 917 REAL(wp) :: canopy_height !< canopy height for lad-profile construction 914 918 915 CALL location_message( 'initializing plant canopy model', .FALSE.)919 IF ( debug_output ) CALL debug_message( 'pcm_init', 'start' ) 916 920 ! 917 921 !-- Allocate one-dimensional arrays for the computation of the … … 1221 1225 ENDIF 1222 1226 1223 CALL location_message( 'finished', .TRUE.)1227 IF ( debug_output ) CALL debug_message( 'pcm_init', 'end' ) 1224 1228 1225 1229 -
palm/trunk/SOURCE/pmc_handle_communicator_mod.f90
r3819 r3885 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Changes related to global restructuring of location messages and introduction 28 ! of additional debug messages 29 ! 30 ! 3819 2019-03-27 11:01:36Z hellstea 27 31 ! Adjustable anterpolation buffer introduced on all nest boundaries, it is controlled 28 32 ! by the new nesting_parameters parameter anterpolation_buffer_width. … … 524 528 ! 525 529 !-- Output location message 526 CALL location_message( 'initialize communicators for nesting', .FALSE.)530 CALL location_message( 'initialize communicators for nesting', 'start' ) 527 531 ! 528 532 !-- Assign the layout to the corresponding internally used variable m_couplers … … 563 567 ENDIF 564 568 569 CALL location_message( 'initialize communicators for nesting', 'finished' ) 570 565 571 END SUBROUTINE read_coupling_layout 566 572 -
palm/trunk/SOURCE/pmc_interface_mod.f90
r3883 r3885 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Changes related to global restructuring of location messages and introduction 28 ! of additional debug messages 29 ! 30 ! 3883 2019-04-10 12:51:50Z hellstea 27 31 ! Checks and error messages improved and extended. All the child index bounds in the 28 32 ! parent-grid index space are made module variables. Function get_number_of_childs … … 405 409 bc_dirichlet_s, child_domain, & 406 410 constant_diffusion, constant_flux_layer, & 407 coupling_char, dt_3d, dz, humidity, message_string, & 411 coupling_char, & 412 debug_output, debug_string, & 413 dt_3d, dz, humidity, message_string, & 408 414 neutral, passive_scalar, rans_mode, rans_tke_e, & 409 415 roughness_length, salsa, topography, volume_flow … … 790 796 !-- Attention: myid has been set at the end of pmc_init_model in order to 791 797 !-- guarantee that only PE0 of the root domain does the output. 792 CALL location_message( ' finished', .TRUE.)798 CALL location_message( 'initialize model nesting', 'finished' ) 793 799 ! 794 800 !-- Reset myid to its default value … … 800 806 !-- world_comm is given a dummy value to avoid compiler warnings (INTENT(OUT) 801 807 !-- should get an explicit value) 808 !-- todo: why don't we print an error message instead of these settings? 802 809 cpl_id = 1 803 810 nested_run = .FALSE. … … 817 824 818 825 #if defined( __parallel ) 819 CALL location_message( 'setup the nested model configuration', .FALSE.)826 CALL location_message( 'setup the nested model configuration', 'start' ) 820 827 CALL cpu_log( log_point_s(79), 'pmci_model_config', 'start' ) 821 828 ! … … 844 851 845 852 CALL cpu_log( log_point_s(79), 'pmci_model_config', 'stop' ) 846 CALL location_message( ' finished', .TRUE.)853 CALL location_message( 'setup the nested model configuration', 'finished' ) 847 854 #endif 848 855 … … 3050 3057 REAL(wp) :: dtg !< Global time step defined as the global minimum of dtl of all processes 3051 3058 3059 IF ( debug_output ) THEN 3060 WRITE( debug_string, * ) 'pmci_synchronize' 3061 CALL debug_message( debug_string, 'start' ) 3062 ENDIF 3052 3063 3053 3064 dtl = dt_3d 3054 3065 CALL MPI_ALLREDUCE( dtl, dtg, 1, MPI_REAL, MPI_MIN, MPI_COMM_WORLD, ierr ) 3055 3066 dt_3d = dtg 3067 3068 IF ( debug_output ) THEN 3069 WRITE( debug_string, * ) 'pmci_synchronize' 3070 CALL debug_message( debug_string, 'end' ) 3071 ENDIF 3056 3072 3057 3073 #endif … … 3099 3115 CHARACTER(LEN=*), INTENT(IN) :: local_nesting_mode !< Nesting mode: 'one-way', 'two-way' or 'vertical' 3100 3116 3117 ! 3118 !-- Debug location message 3119 IF ( debug_output ) THEN 3120 WRITE( debug_string, * ) 'pmci_datatrans' 3121 CALL debug_message( debug_string, 'start' ) 3122 ENDIF 3101 3123 3102 3124 IF ( TRIM( local_nesting_mode ) == 'one-way' ) THEN … … 3133 3155 ENDIF 3134 3156 3157 ENDIF 3158 ! 3159 !-- Debug location message 3160 IF ( debug_output ) THEN 3161 WRITE( debug_string, * ) 'pmci_datatrans' 3162 CALL debug_message( debug_string, 'end' ) 3135 3163 ENDIF 3136 3164 … … 4600 4628 INTEGER(iwp) :: n !< Running index for number of chemical species 4601 4629 4630 ! 4631 !-- Debug location message 4632 IF ( debug_output ) THEN 4633 WRITE( debug_string, * ) 'pmci_boundary_conds' 4634 CALL debug_message( debug_string, 'start' ) 4635 ENDIF 4602 4636 ! 4603 4637 !-- Set Dirichlet boundary conditions for horizontal velocity components … … 4786 4820 ENDIF 4787 4821 ENDIF 4822 ! 4823 !-- Debug location message 4824 IF ( debug_output ) THEN 4825 WRITE( debug_string, * ) 'pmci_boundary_conds' 4826 CALL debug_message( debug_string, 'end' ) 4827 ENDIF 4788 4828 4789 4829 END SUBROUTINE pmci_boundary_conds -
palm/trunk/SOURCE/prognostic_equations.f90
r3881 r3885 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Changes related to global restructuring of location messages and introduction 28 ! of additional debug messages 29 ! 30 ! 3881 2019-04-10 09:31:22Z suehring 27 31 ! Bugfix in OpenMP directive 28 32 ! … … 395 399 USE control_parameters, & 396 400 ONLY: air_chemistry, constant_diffusion, & 401 debug_output, debug_string, & 397 402 dp_external, dp_level_ind_b, dp_smooth_factor, dpdxy, dt_3d, & 398 403 humidity, intermediate_timestep_count, & … … 517 522 518 523 524 525 IF ( debug_output ) THEN 526 WRITE( debug_string, * ) 'prognostic_equations_cache' 527 CALL debug_message( debug_string, 'start' ) 528 ENDIF 519 529 ! 520 530 !-- Time measurement can only be performed for the whole set of equations … … 1115 1125 CALL cpu_log( log_point(32), 'all progn.equations', 'stop' ) 1116 1126 1127 IF ( debug_output ) THEN 1128 WRITE( debug_string, * ) 'prognostic_equations_cache' 1129 CALL debug_message( debug_string, 'end' ) 1130 ENDIF 1117 1131 1118 1132 END SUBROUTINE prognostic_equations_cache … … 1138 1152 REAL(wp) :: sbt !< 1139 1153 1154 1155 IF ( debug_output ) THEN 1156 WRITE( debug_string, * ) 'prognostic_equations_vector' 1157 CALL debug_message( debug_string, 'start' ) 1158 ENDIF 1140 1159 ! 1141 1160 !-- Run SALSA and aerosol dynamic processes. SALSA is run with a longer time … … 1869 1888 CALL module_interface_prognostic_equations() 1870 1889 1890 IF ( debug_output ) THEN 1891 WRITE( debug_string, * ) 'prognostic_equations_vector' 1892 CALL debug_message( debug_string, 'end' ) 1893 ENDIF 1894 1871 1895 END SUBROUTINE prognostic_equations_vector 1872 1896 -
palm/trunk/SOURCE/radiation_model_mod.f90
r3881 r3885 15 15 ! PALM. If not, see <http://www.gnu.org/licenses/>. 16 16 ! 17 ! Copyright 2015-201 8Institute of Computer Science of the17 ! Copyright 2015-2019 Institute of Computer Science of the 18 18 ! Czech Academy of Sciences, Prague 19 ! Copyright 2015-201 8Czech Technical University in Prague19 ! Copyright 2015-2019 Czech Technical University in Prague 20 20 ! Copyright 1997-2019 Leibniz Universitaet Hannover 21 21 !------------------------------------------------------------------------------! … … 28 28 ! ----------------- 29 29 ! $Id$ 30 ! Changes related to global restructuring of location messages and introduction 31 ! of additional debug messages 32 ! 33 ! 3881 2019-04-10 09:31:22Z suehring 30 34 ! Output of albedo and emissivity moved from USM, bugfixes in initialization 31 35 ! of albedo … … 612 616 613 617 USE control_parameters, & 614 ONLY: cloud_droplets, coupling_char, dz, dt_spinup, end_time, & 618 ONLY: cloud_droplets, coupling_char, & 619 debug_output, debug_string, & 620 dz, dt_spinup, end_time, & 615 621 humidity, & 616 622 initializing_actions, io_blocks, io_group, & … … 1347 1353 1348 1354 1355 IF ( debug_output ) CALL debug_message( 'radiation_control', 'start' ) 1356 1357 1349 1358 SELECT CASE ( TRIM( radiation_scheme ) ) 1350 1359 … … 1362 1371 END SELECT 1363 1372 1373 IF ( debug_output ) CALL debug_message( 'radiation_control', 'end' ) 1364 1374 1365 1375 END SUBROUTINE radiation_control … … 1835 1845 #endif 1836 1846 1847 1848 IF ( debug_output ) CALL debug_message( 'radiation_init', 'start' ) 1837 1849 ! 1838 1850 !-- Activate radiation_interactions according to the existence of vertical surfaces and/or trees. … … 1858 1870 !-- via sky-view factors. This must be done before radiation is initialized. 1859 1871 IF ( radiation_interactions ) CALL radiation_interaction_init 1860 1861 !1862 !-- Initialize radiation model1863 CALL location_message( 'initializing radiation model', .FALSE. )1864 1865 1872 ! 1866 1873 !-- Allocate array for storing the surface net radiation … … 2856 2863 CALL init_date_and_time 2857 2864 2858 CALL location_message( 'finished', .TRUE. )2859 2860 2865 ! 2861 2866 !-- Find all discretized apparent solar positions for radiation interaction. … … 2867 2872 ! 2868 2873 !-- Read sky-view factors and further required data from file 2869 CALL location_message( ' Start reading SVF from file', .FALSE. )2870 2874 CALL radiation_read_svf() 2871 CALL location_message( ' Reading SVF from file has finished', .TRUE. )2872 2875 2873 2876 ELSEIF ( radiation_interactions .AND. .NOT. read_svf) THEN 2874 2877 ! 2875 2878 !-- calculate SFV and CSF 2876 CALL location_message( ' Start calculation of SVF', .FALSE. )2877 2879 CALL radiation_calc_svf() 2878 CALL location_message( ' Calculation of SVF has finished', .TRUE. )2879 2880 ENDIF 2880 2881 … … 2882 2883 ! 2883 2884 !-- Write svf, csf svfsurf and csfsurf data to file 2884 CALL location_message( ' Start writing SVF in file', .FALSE. )2885 2885 CALL radiation_write_svf() 2886 CALL location_message( ' Writing SVF in file has finished', .TRUE. )2887 2886 ENDIF 2888 2887 … … 2894 2893 ENDIF 2895 2894 2896 RETURN 2895 IF ( debug_output ) CALL debug_message( 'radiation_init', 'end' ) 2896 2897 RETURN !todo: remove, I don't see what we need this for here 2897 2898 2898 2899 END SUBROUTINE radiation_init … … 5104 5105 5105 5106 5107 IF ( debug_output ) CALL debug_message( 'radiation_interaction', 'start' ) 5108 5106 5109 IF ( plant_canopy ) THEN 5107 5110 pchf_prep(:) = r_d * exner(nz_urban_b:nz_urban_t) & … … 5848 5851 (emissivity_urb*sigma_sb * area_hor) )**0.25_wp 5849 5852 5853 IF ( debug_output ) CALL debug_message( 'radiation_interaction', 'end' ) 5854 5855 5850 5856 CONTAINS 5851 5857 … … 5978 5984 END SUBROUTINE calc_diffusion_radiation 5979 5985 5980 5981 5986 END SUBROUTINE radiation_interaction 5982 5987 … … 6143 6148 !-- allocate urban surfaces grid 6144 6149 !-- calc number of surfaces in local proc 6145 CALL location_message( ' calculation of indices for surfaces', .TRUE. ) 6150 IF ( debug_output ) CALL debug_message( 'calculation of indices for surfaces', 'info' ) 6151 6146 6152 nsurfl = 0 6147 6153 ! … … 6478 6484 !-- 6479 6485 !-- allocation of the arrays for direct and diffusion radiation 6480 CALL location_message( ' allocation of radiation arrays', .TRUE.)6486 IF ( debug_output ) CALL debug_message( 'allocation of radiation arrays', 'info' ) 6481 6487 !-- rad_sw_in, rad_lw_in are computed in radiation model, 6482 6488 !-- splitting of direct and diffusion part is done … … 6577 6583 ! 6578 6584 INTEGER(iwp), DIMENSION(0:svfnorm_report_num) :: svfnorm_counts 6579 CHARACTER(200) :: msg 6585 6580 6586 6581 6587 !-- calculation of the SVF 6582 CALL location_message( ' calculation of SVF and CSF', .TRUE. ) 6583 CALL radiation_write_debug_log('Start calculation of SVF and CSF') 6588 CALL location_message( 'calculating view factors for radiation interaction', 'start' ) 6584 6589 6585 6590 !-- initialize variables and temporary arrays for calculation of svf and csf … … 6921 6926 ENDIF 6922 6927 6923 WRITE (msg,'(A,3I12)') 'Grow asvf:',nsvfl,nsvfla,k 6924 CALL radiation_write_debug_log( msg ) 6928 IF ( debug_output ) THEN 6929 WRITE( debug_string, '(A,3I12)' ) 'Grow asvf:', nsvfl, nsvfla, k 6930 CALL debug_message( debug_string, 'info' ) 6931 ENDIF 6925 6932 6926 6933 nsvfla = k … … 7004 7011 ENDIF 7005 7012 7006 WRITE(msg,'(A,3I12)') 'Grow asvf:',nsvfl,nsvfla,k 7007 CALL radiation_write_debug_log( msg ) 7013 IF ( debug_output ) THEN 7014 WRITE( debug_string, '(A,3I12)' ) 'Grow asvf:', nsvfl, nsvfla, k 7015 CALL debug_message( debug_string, 'info' ) 7016 ENDIF 7008 7017 7009 7018 nsvfla = k … … 7172 7181 ENDIF 7173 7182 7174 WRITE (msg,'(A,3I12)') 'Grow amrtf:', nmrtf, nmrtfa, k 7175 CALL radiation_write_debug_log( msg ) 7183 IF ( debug_output ) THEN 7184 WRITE( debug_string, '(A,3I12)' ) 'Grow amrtf:', nmrtf, nmrtfa, k 7185 CALL debug_message( debug_string, 'info' ) 7186 ENDIF 7176 7187 7177 7188 nmrtfa = k … … 7224 7235 ENDIF 7225 7236 7226 CALL radiation_write_debug_log( 'End of calculation SVF' ) 7227 WRITE(msg, *) 'Raytracing skipped for maximum distance of ', & 7228 max_raytracing_dist, ' m on ', ray_skip_maxdist, ' pairs.' 7229 CALL radiation_write_debug_log( msg ) 7230 WRITE(msg, *) 'Raytracing skipped for minimum potential value of ', & 7231 min_irrf_value , ' on ', ray_skip_minval, ' pairs.' 7232 CALL radiation_write_debug_log( msg ) 7233 7234 CALL location_message( ' waiting for completion of SVF and CSF calculation in all processes', .TRUE. ) 7237 IF ( debug_output ) CALL debug_message( 'waiting for completion of SVF and CSF calculation in all processes', 'info' ) 7238 7235 7239 !-- deallocate temporary global arrays 7236 7240 DEALLOCATE(nzterr) … … 7274 7278 ENDIF 7275 7279 7276 CALL location_message( ' calculation of the complete SVF array', .TRUE.)7280 IF ( debug_output ) CALL debug_message( 'calculation of the complete SVF array', 'info' ) 7277 7281 7278 7282 IF ( rad_angular_discretization ) THEN 7279 CALL radiation_write_debug_log( 'Load svf from the structure array to plain arrays' )7283 IF ( debug_output ) CALL debug_message( 'Load svf from the structure array to plain arrays', 'info' ) 7280 7284 ALLOCATE( svf(ndsvf,nsvfl) ) 7281 7285 ALLOCATE( svfsurf(idsvf,nsvfl) ) … … 7286 7290 ENDDO 7287 7291 ELSE 7288 CALL radiation_write_debug_log( 'Start SVF sort' )7292 IF ( debug_output ) CALL debug_message( 'Start SVF sort', 'info' ) 7289 7293 !-- sort svf ( a version of quicksort ) 7290 7294 CALL quicksort_svf(asvf,1,nsvfl) 7291 7295 7292 7296 !< load svf from the structure array to plain arrays 7293 CALL radiation_write_debug_log( 'Load svf from the structure array to plain arrays' )7297 IF ( debug_output ) CALL debug_message( 'Load svf from the structure array to plain arrays', 'info' ) 7294 7298 ALLOCATE( svf(ndsvf,nsvfl) ) 7295 7299 ALLOCATE( svfsurf(idsvf,nsvfl) ) … … 7346 7350 IF ( plant_canopy ) THEN 7347 7351 7348 CALL location_message( ' calculation of the complete CSF array', .TRUE. ) 7349 CALL radiation_write_debug_log( 'Calculation of the complete CSF array' ) 7352 IF ( debug_output ) CALL debug_message( 'Calculation of the complete CSF array', 'info' ) 7350 7353 !-- sort and merge csf for the last time, keeping the array size to minimum 7351 7354 CALL merge_and_grow_csf(-1) … … 7419 7422 !-- scatter and gather the number of elements to and from all processor 7420 7423 !-- and calculate displacements 7421 CALL radiation_write_debug_log( 'Scatter and gather the number of elements to and from all processor' ) 7424 IF ( debug_output ) CALL debug_message( 'Scatter and gather the number of elements to and from all processor', 'info' ) 7425 7422 7426 CALL MPI_AlltoAll(icsflt,1,MPI_INTEGER,ipcsflt,1,MPI_INTEGER,comm2d, ierr) 7427 7423 7428 IF ( ierr /= 0 ) THEN 7424 7429 WRITE(9,*) 'Error MPI_AlltoAll1:', ierr, SIZE(icsflt), SIZE(ipcsflt) … … 7434 7439 7435 7440 !-- exchange csf fields between processors 7436 CALL radiation_write_debug_log( 'Exchange csf fields between processors' )7441 IF ( debug_output ) CALL debug_message( 'Exchange csf fields between processors', 'info' ) 7437 7442 udim = max(npcsfl,1) 7438 7443 ALLOCATE( pcsflt_l(ndcsf*udim) ) … … 7473 7478 7474 7479 !-- sort csf ( a version of quicksort ) 7475 CALL radiation_write_debug_log( 'Sort csf' )7480 IF ( debug_output ) CALL debug_message( 'Sort csf', 'info' ) 7476 7481 CALL quicksort_csf2(kpcsflt, pcsflt, 1, npcsfl) 7477 7482 7478 7483 !-- aggregate canopy sink factor records with identical box & source 7479 7484 !-- againg across all values from all processors 7480 CALL radiation_write_debug_log( 'Aggregate canopy sink factor records with identical box' )7485 IF ( debug_output ) CALL debug_message( 'Aggregate canopy sink factor records with identical box', 'info' ) 7481 7486 7482 7487 IF ( npcsfl > 0 ) THEN … … 7521 7526 DEALLOCATE( pcsflt_l ) 7522 7527 DEALLOCATE( kpcsflt_l ) 7523 CALL radiation_write_debug_log( 'End of aggregate csf' )7528 IF ( debug_output ) CALL debug_message( 'End of aggregate csf', 'info' ) 7524 7529 7525 7530 ENDIF … … 7528 7533 CALL MPI_BARRIER( comm2d, ierr ) 7529 7534 #endif 7530 CALL radiation_write_debug_log( 'End of radiation_calc_svf (after mpi_barrier)' )7531 7532 RETURN 7535 CALL location_message( 'calculating view factors for radiation interaction', 'finished' ) 7536 7537 RETURN !todo: remove 7533 7538 7534 7539 ! WRITE( message_string, * ) & … … 8440 8445 INTEGER(iwp) :: nsurfl_from_file = 0 8441 8446 INTEGER(iwp) :: nmrtbl_from_file = 0 8442 8447 8448 8449 CALL location_message( 'reading view factors for radiation interaction', 'start' ) 8450 8443 8451 DO i = 0, io_blocks-1 8444 8452 IF ( i == io_group ) THEN … … 8484 8492 CALL message( 'radiation_read_svf', 'PA0483', 1, 2, 0, 6, 0 ) 8485 8493 ELSE 8486 WRITE( message_string,*) ' Number of SVF, CSF, and nsurfl ',&8494 WRITE(debug_string,*) 'Number of SVF, CSF, and nsurfl ', & 8487 8495 'to read', nsvfl, ncsfl, & 8488 8496 nsurfl_from_file 8489 CALL location_message( message_string, .TRUE.)8497 IF ( debug_output ) CALL debug_message( debug_string, 'info' ) 8490 8498 ENDIF 8491 8499 … … 8516 8524 CALL message( 'radiation_read_svf', 'PA0494', 1, 2, 0, 6, 0 ) 8517 8525 ELSE 8518 WRITE( message_string,*) 'Number of nmrtf to read ', nmrtf8519 CALL location_message( message_string, .TRUE.)8526 WRITE(debug_string,*) 'Number of nmrtf to read ', nmrtf 8527 IF ( debug_output ) CALL debug_message( debug_string, 'info' ) 8520 8528 ENDIF 8521 8529 … … 8578 8586 ENDDO 8579 8587 8588 CALL location_message( 'reading view factors for radiation interaction', 'finished' ) 8589 8590 8580 8591 END SUBROUTINE radiation_read_svf 8581 8592 … … 8592 8603 8593 8604 INTEGER(iwp) :: i 8605 8606 8607 CALL location_message( 'writing view factors for radiation interaction', 'start' ) 8594 8608 8595 8609 DO i = 0, io_blocks-1 … … 8636 8650 #endif 8637 8651 ENDDO 8652 8653 CALL location_message( 'writing view factors for radiation interaction', 'finished' ) 8654 8655 8638 8656 END SUBROUTINE radiation_write_svf 8639 8657 … … 8788 8806 INTEGER(iwp) :: iread, iwrite 8789 8807 TYPE(t_csf), DIMENSION(:), POINTER :: acsfnew 8790 CHARACTER(100) :: msg 8808 8791 8809 8792 8810 IF ( newsize == -1 ) THEN … … 8852 8870 ncsfla = newsize 8853 8871 8854 WRITE(msg,'(A,2I12)') 'Grow acsf2:',ncsfl,ncsfla 8855 CALL radiation_write_debug_log( msg ) 8872 IF ( debug_output ) THEN 8873 WRITE( debug_string, '(A,2I12)' ) 'Grow acsf2:', ncsfl, ncsfla 8874 CALL debug_message( debug_string, 'info' ) 8875 ENDIF 8856 8876 8857 8877 END SUBROUTINE merge_and_grow_csf … … 11490 11510 END SUBROUTINE radiation_rrd_local 11491 11511 11492 !------------------------------------------------------------------------------!11493 ! Description:11494 ! ------------11495 !> Subroutine writes debug information11496 !------------------------------------------------------------------------------!11497 SUBROUTINE radiation_write_debug_log ( message )11498 !> it writes debug log with time stamp11499 CHARACTER(*) :: message11500 CHARACTER(15) :: dtc11501 CHARACTER(8) :: date11502 CHARACTER(10) :: time11503 CHARACTER(5) :: zone11504 CALL date_and_time(date, time, zone)11505 dtc = date(7:8)//','//time(1:2)//':'//time(3:4)//':'//time(5:10)11506 WRITE(9,'(2A)') dtc, TRIM(message)11507 FLUSH(9)11508 END SUBROUTINE radiation_write_debug_log11509 11512 11510 11513 END MODULE radiation_model_mod -
palm/trunk/SOURCE/salsa_mod.f90
r3876 r3885 15 15 ! PALM. If not, see <http://www.gnu.org/licenses/>. 16 16 ! 17 ! Copyright 2018-201 8University of Helsinki17 ! Copyright 2018-2019 University of Helsinki 18 18 ! Copyright 1997-2019 Leibniz Universitaet Hannover 19 19 !--------------------------------------------------------------------------------! … … 26 26 ! ----------------- 27 27 ! $Id$ 28 ! Changes related to global restructuring of location messages and introduction 29 ! of additional debug messages 30 ! 31 ! 3876 2019-04-08 18:41:49Z knoop 28 32 ! Introduced salsa_actions module interface 29 33 ! … … 1290 1294 INTEGER(iwp) :: j !< 1291 1295 1292 CALL location_message( 'initializing salsa (sectional aerosol module )', .TRUE.)1296 IF ( debug_output ) CALL debug_message( 'salsa_init', 'start' ) 1293 1297 1294 1298 bin_low_limits = 0.0_wp … … 1439 1443 ENDIF 1440 1444 1441 CALL location_message( 'finished', .TRUE.)1445 IF ( debug_output ) CALL debug_message( 'salsa_init', 'end' ) 1442 1446 1443 1447 END SUBROUTINE salsa_init … … 8087 8091 ! 8088 8092 !-- Subrange 2b: 8093 !-- todo: this information should go to HEADER/RUN_CONTROL, it doesn't belong to the job log, 8094 !-- and actually, aerosol_flux_mass_fracs_b is not used anywhere else except for this message, 8095 !-- hence, what do we need it for? 8089 8096 IF ( SUM( aerosol_flux_mass_fracs_b ) > 0.0_wp ) THEN 8090 CALL location_message( ' salsa_emission_setup: emissions are soluble!', .TRUE.)8097 CALL debug_message( ' salsa_emission_setup: emissions are soluble!', 'info' ) 8091 8098 ENDIF 8092 8099 … … 8681 8688 ! 8682 8689 !-- Subrange 2b: 8683 IF ( .NOT. no_insoluble ) THEN 8684 CALL location_message( ' salsa_mass_flux: All emissions are soluble!', .TRUE. ) 8685 ENDIF 8690 !-- todo: this information should go to HEADER/RUN_CONTROL, it doesn't belong to the job log 8691 ! IF ( .NOT. no_insoluble ) THEN 8692 ! CALL location_message( ' salsa_mass_flux: All emissions are soluble!', .TRUE. ) 8693 ! ENDIF 8686 8694 8687 8695 END SUBROUTINE set_mass_flux … … 8776 8784 END SELECT 8777 8785 ENDDO 8778 IF ( SUM( emission_index_chem ) == 0 ) THEN 8779 CALL location_message( ' salsa_gas_emission_setup: no gas emissions', .TRUE. ) 8780 ENDIF 8786 !-- todo: this information should go to HEADER/RUN_CONTROL, it doesn't belong to the job log 8787 ! IF ( SUM( emission_index_chem ) == 0 ) THEN 8788 ! CALL location_message( ' salsa_gas_emission_setup: no gas emissions', .TRUE. ) 8789 ! ENDIF 8781 8790 ! 8782 8791 !-- Inquire the fill value -
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 -
palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90
r3775 r3885 15 15 ! PALM. If not, see <http://www.gnu.org/licenses/>. 16 16 ! 17 ! Copyright 2017 Leibniz Universitaet Hannover17 ! Copyright 2017-2019 Leibniz Universitaet Hannover 18 18 !------------------------------------------------------------------------------! 19 19 ! … … 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Changes related to global restructuring of location messages and introduction 28 ! of additional debug messages 29 ! 30 ! 27 31 ! removed unused variables 28 32 ! … … 187 191 188 192 USE control_parameters, & 189 ONLY: initializing_actions, num_mean_inflow_profiles, message_string, & 193 ONLY: debug_output, & 194 debug_string, & 195 initializing_actions, & 196 message_string, & 197 num_mean_inflow_profiles, & 190 198 syn_turb_gen 191 199 … … 1080 1088 REAL(wp) :: volume_flow_l !< local mass flux through lateral boundary 1081 1089 1082 1090 ! 1091 !-- Debug location message 1092 IF ( debug_output ) THEN 1093 WRITE( debug_string, * ) 'stg_main' 1094 CALL debug_message( debug_string, 'start' ) 1095 ENDIF 1083 1096 ! 1084 1097 !-- Calculate time step which is needed for filter functions … … 1422 1435 !-- Finally, set time counter for calling STG to zero 1423 1436 time_stg_call = 0.0_wp 1424 1437 ! 1438 !-- Debug location message 1439 IF ( debug_output ) THEN 1440 WRITE( debug_string, * ) 'stg_main' 1441 CALL debug_message( debug_string, 'end' ) 1442 ENDIF 1425 1443 1426 1444 END SUBROUTINE stg_main … … 1825 1843 1826 1844 ! 1845 !-- Debug location message 1846 IF ( debug_output ) THEN 1847 WRITE( debug_string, * ) 'stg_adjust' 1848 CALL debug_message( debug_string, 'start' ) 1849 ENDIF 1850 ! 1827 1851 !-- Compute mean boundary layer height according to Richardson-Bulk 1828 1852 !-- criterion using the inflow profiles. Further velocity scale as well as … … 1856 1880 !-- Reset time counter for controlling next adjustment to zero 1857 1881 time_stg_adjust = 0.0_wp 1858 1882 ! 1883 !-- Debug location message 1884 IF ( debug_output ) THEN 1885 WRITE( debug_string, * ) 'stg_adjust' 1886 CALL debug_message( debug_string, 'end' ) 1887 ENDIF 1859 1888 1860 1889 END SUBROUTINE stg_adjust -
palm/trunk/SOURCE/time_integration.f90
r3879 r3885 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Changes related to global restructuring of location messages and introduction 28 ! of additional debug messages 29 ! 30 ! 3879 2019-04-08 20:25:23Z knoop 27 31 ! Moved wtm_forces to module_interface_actions 28 32 ! … … 821 825 #endif 822 826 823 CALL location_message( ' starting timestep-sequence', .TRUE.)827 CALL location_message( 'atmosphere (and/or ocean) time-stepping', 'start' ) 824 828 825 829 ! … … 1858 1862 #endif 1859 1863 1860 CALL location_message( ' finished time-stepping', .TRUE.)1864 CALL location_message( 'atmosphere (and/or ocean) time-stepping', 'finished' ) 1861 1865 1862 1866 END SUBROUTINE time_integration -
palm/trunk/SOURCE/time_integration_spinup.f90
r3766 r3885 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Changes related to global restructuring of location messages and introduction 28 ! of additional debug messages 29 ! 30 ! 3766 2019-02-26 16:23:41Z raasch 27 31 ! unused variable removed 28 32 ! … … 257 261 dt_3d = dt_spinup 258 262 259 CALL location_message( ' starting spinup-sequence', .TRUE.)263 CALL location_message( 'wall/soil spinup time-stepping', 'start' ) 260 264 ! 261 265 !-- Start of the time loop … … 573 577 #endif 574 578 575 CALL location_message( ' finished spinup-sequence', .TRUE.)579 CALL location_message( 'wall/soil spinup time-stepping', 'finished' ) 576 580 577 581 -
palm/trunk/SOURCE/urban_surface_mod.f90
r3882 r3885 28 28 ! ----------------- 29 29 ! $Id$ 30 ! Changes related to global restructuring of location messages and introduction 31 ! of additional debug messages 32 ! 33 ! 3882 2019-04-10 11:08:06Z suehring 30 34 ! Avoid different type kinds 31 35 ! Move definition of building-surface properties from declaration block … … 458 462 459 463 USE control_parameters, & 460 ONLY: coupling_start_time, topography, dt_3d, humidity, indoor_model, & 464 ONLY: coupling_start_time, topography, & 465 debug_output, debug_string, & 466 dt_3d, humidity, indoor_model, & 461 467 intermediate_timestep_count, initializing_actions, & 462 468 intermediate_timestep_count_max, simulated_time, end_time, & … … 976 982 INTEGER(iwp) :: l 977 983 978 CALL location_message( 'initializing and allocating urban surfaces', .FALSE.)984 IF ( debug_output ) CALL debug_message( 'usm_init_arrays', 'start' ) 979 985 980 986 ! … … 1383 1389 ENDDO 1384 1390 1385 CALL location_message( 'finished', .TRUE.)1391 IF ( debug_output ) CALL debug_message( 'usm_init_arrays', 'end' ) 1386 1392 1387 1393 END SUBROUTINE usm_init_arrays … … 3474 3480 INTEGER(iwp) :: k, l, m !< running indices 3475 3481 3476 CALL location_message( ' initialization of wall surface model', .TRUE.)3482 IF ( debug_output ) CALL debug_message( 'usm_init_material_model', 'start' ) 3477 3483 3478 3484 ! … … 3660 3666 3661 3667 3662 CALL location_message( ' wall structures filed out', .TRUE. ) 3663 3664 CALL location_message( ' initialization of wall surface model finished', .TRUE. ) 3668 IF ( debug_output ) CALL debug_message( 'usm_init_material_model', 'end' ) 3665 3669 3666 3670 END SUBROUTINE usm_init_material_model … … 3728 3732 REAL(wp) :: z_agl !< height above ground 3729 3733 3730 CALL location_message( 'initializing urban surface model', .FALSE.)3734 IF ( debug_output ) CALL debug_message( 'usm_init', 'start' ) 3731 3735 3732 3736 CALL cpu_log( log_point_s(78), 'usm_init', 'start' ) … … 5191 5195 CALL cpu_log( log_point_s(78), 'usm_init', 'stop' ) 5192 5196 5193 CALL location_message( 'finished', .TRUE.)5197 IF ( debug_output ) CALL debug_message( 'usm_init', 'end' ) 5194 5198 5195 5199 END SUBROUTINE usm_init … … 5217 5221 5218 5222 LOGICAL :: spinup !< if true, no calculation of window temperatures 5223 5224 5225 IF ( debug_output ) THEN 5226 WRITE( debug_string, * ) 'usm_material_heat_model | spinup: ', spinup 5227 CALL debug_message( debug_string, 'start' ) 5228 ENDIF 5219 5229 5220 5230 !$OMP PARALLEL PRIVATE (m, i, j, k, kw, wtend, wintend, win_absorp, wall_mod) … … 5590 5600 !$OMP END PARALLEL 5591 5601 5602 IF ( debug_output ) THEN 5603 WRITE( debug_string, * ) 'usm_material_heat_model | spinup: ', spinup 5604 CALL debug_message( debug_string, 'end' ) 5605 ENDIF 5606 5592 5607 END SUBROUTINE usm_material_heat_model 5593 5608 … … 5619 5634 LOGICAL :: conserve_water_content = .true. 5620 5635 5636 5637 IF ( debug_output ) CALL debug_message( 'usm_green_heat_model', 'start' ) 5621 5638 5622 5639 drho_l_lv = 1.0_wp / (rho_l * l_v) … … 5949 5966 ENDDO 5950 5967 5968 IF ( debug_output ) CALL debug_message( 'usm_green_heat_model', 'end' ) 5969 5951 5970 END SUBROUTINE usm_green_heat_model 5952 5971 … … 6939 6958 REAL(wp) :: wealbedo3, wethick3, snalbedo3, snthick3 6940 6959 6960 6961 IF ( debug_output ) CALL debug_message( 'usm_read_urban_surface_types', 'start' ) 6941 6962 ! 6942 6963 !-- If building_pars or building_type are already read from static input … … 7452 7473 ENDDO 7453 7474 7454 7455 WRITE(9,*) 'Urban surfaces read' 7456 FLUSH(9) 7457 7458 CALL location_message( ' types and parameters of urban surfaces read', .TRUE. ) 7475 IF ( debug_output ) CALL debug_message( 'usm_read_urban_surface_types', 'end' ) 7459 7476 7460 7477 END SUBROUTINE usm_read_urban_surface_types … … 7513 7530 7514 7531 7532 IF ( debug_output ) CALL debug_message( 'usm_read_wall_temperature', 'start' ) 7533 7515 7534 DO ii = 0, io_blocks-1 7516 7535 IF ( ii == io_group ) THEN … … 7567 7586 ENDDO 7568 7587 7569 CALL location_message( ' wall layer temperatures read', .TRUE.)7588 IF ( debug_output ) CALL debug_message( 'usm_read_wall_temperature', 'end' ) 7570 7589 7571 7590 END SUBROUTINE usm_read_wall_temperature … … 7638 7657 q_s !< saturation specific humidity 7639 7658 7659 7660 IF ( debug_output ) THEN 7661 WRITE( debug_string, * ) 'usm_surface_energy_balance | spinup: ', spinup 7662 CALL debug_message( debug_string, 'start' ) 7663 ENDIF 7640 7664 ! 7641 7665 !-- Index offset of surface element point with respect to adjoining … … 8639 8663 ! 8640 8664 ! END SUBROUTINE calc_q_surface_usm 8641 8665 8666 IF ( debug_output ) THEN 8667 WRITE( debug_string, * ) 'usm_surface_energy_balance | spinup: ', spinup 8668 CALL debug_message( debug_string, 'end' ) 8669 ENDIF 8670 8642 8671 END SUBROUTINE usm_surface_energy_balance 8643 8672 -
palm/trunk/SOURCE/virtual_flight_mod.f90
r3655 r3885 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Changes related to global restructuring of location messages and introduction 28 ! of additional debug messages 29 ! 30 ! 3655 2019-01-07 16:51:22Z knoop 27 31 ! variables documented 28 32 ! … … 104 108 105 109 USE control_parameters, & 106 ONLY: fl_max, num_leg, num_var_fl, num_var_fl_user, virtual_flight110 ONLY: debug_output, fl_max, num_leg, num_var_fl, num_var_fl_user, virtual_flight 107 111 108 112 USE kinds … … 332 336 333 337 REAL(wp) :: distance !< distance between start and end position of a flight leg 338 339 340 IF ( debug_output ) CALL debug_message( 'flight_init', 'start' ) 334 341 ! 335 342 !-- Determine the number of flight legs … … 407 414 sensor_l = 0.0_wp 408 415 sensor = 0.0_wp 416 417 IF ( debug_output ) CALL debug_message( 'flight_init', 'end' ) 409 418 410 419 END SUBROUTINE flight_init -
palm/trunk/SOURCE/wind_turbine_model_mod.f90
r3875 r3885 15 15 ! PALM. If not, see <http://www.gnu.org/licenses/>. 16 16 ! 17 ! Copyright 2009-201 8Carl von Ossietzky Universitaet Oldenburg17 ! Copyright 2009-2019 Carl von Ossietzky Universitaet Oldenburg 18 18 ! Copyright 1997-2019 Leibniz Universitaet Hannover 19 19 !------------------------------------------------------------------------------! … … 26 26 ! ----------------- 27 27 ! $Id$ 28 ! Changes related to global restructuring of location messages and introduction 29 ! of additional debug messages 30 ! 31 ! 3875 2019-04-08 17:35:12Z knoop 28 32 ! Addaped wtm_tendency to fit the module actions interface 29 33 ! … … 197 201 198 202 USE control_parameters, & 199 ONLY: coupling_char, dt_3d, dz, message_string, simulated_time, & 203 ONLY: coupling_char, & 204 debug_output, & 205 dt_3d, dz, message_string, simulated_time, & 200 206 wind_turbine, initializing_actions 201 207 … … 984 990 INTEGER(iwp), DIMENSION(:), ALLOCATABLE :: index_nact !< 985 991 986 CALL location_message( 'initializing wind turbine model', .FALSE.)992 IF ( debug_output ) CALL debug_message( 'wtm_init', 'start' ) 987 993 988 994 ALLOCATE( index_nacb(1:nturbines) ) … … 1341 1347 CALL wtm_read_blade_tables 1342 1348 1343 CALL location_message( 'finished', .TRUE.)1349 IF ( debug_output ) CALL debug_message( 'wtm_init', 'end' ) 1344 1350 1345 1351 END SUBROUTINE wtm_init
Note: See TracChangeset
for help on using the changeset viewer.
