Changeset 3045 for palm/trunk/SOURCE/lpm_init.f90
- Timestamp:
- May 28, 2018 7:55:41 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/lpm_init.f90
r3039 r3045 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Error message revised 28 ! 29 ! 3039 2018-05-24 13:13:11Z schwenkel 27 30 ! bugfix for lcm with grid stretching 28 31 ! … … 333 336 !-- Check the number of particle groups. 334 337 IF ( number_of_particle_groups > max_number_of_particle_groups ) THEN 335 WRITE( message_string, * ) 'max_number_of_particle_groups =', &336 max_number_of_particle_groups , &337 ' &number_of_particle_groups reset to ',&338 WRITE( message_string, * ) 'max_number_of_particle_groups =', & 339 max_number_of_particle_groups , & 340 ' number_of_particle_groups reset to ', & 338 341 max_number_of_particle_groups 339 342 CALL message( 'lpm_init', 'PA0213', 0, 1, 0, 6, 0 ) … … 345 348 !-- propably (not realized so far). 346 349 IF ( surf_def_h(1)%ns >= 1 ) THEN 347 WRITE( message_string, * ) 'Overhanging topography do not work '// &350 WRITE( message_string, * ) 'Overhanging topography do not work '// & 348 351 'with particles' 349 352 CALL message( 'lpm_init', 'PA0212', 0, 1, 0, 6, 0 ) … … 466 469 467 470 CASE DEFAULT 468 WRITE( message_string, * ) 'unknown boundary condition ', &471 WRITE( message_string, * ) 'unknown boundary condition ', & 469 472 'bc_par_b = "', TRIM( bc_par_b ), '"' 470 473 CALL message( 'lpm_init', 'PA0217', 1, 2, 0, 6, 0 ) … … 483 486 484 487 CASE DEFAULT 485 WRITE( message_string, * ) 'unknown boundary condition ', &488 WRITE( message_string, * ) 'unknown boundary condition ', & 486 489 'bc_par_t = "', TRIM( bc_par_t ), '"' 487 490 CALL message( 'lpm_init', 'PA0218', 1, 2, 0, 6, 0 ) … … 540 543 541 544 CASE DEFAULT 542 WRITE( message_string, * ) 'unknown splitting condition ',&543 'splitting_mode = "',TRIM( splitting_mode ), '"'545 WRITE( message_string, * ) 'unknown splitting_mode = "', & 546 TRIM( splitting_mode ), '"' 544 547 CALL message( 'lpm_init', 'PA0146', 1, 2, 0, 6, 0 ) 545 548 … … 557 560 558 561 CASE DEFAULT 559 WRITE( message_string, * ) 'unknown splitting function ',&560 'splitting_function = "',TRIM( splitting_function ), '"'562 WRITE( message_string, * ) 'unknown splitting function = "', & 563 TRIM( splitting_function ), '"' 561 564 CALL message( 'lpm_init', 'PA0147', 1, 2, 0, 6, 0 ) 562 565 … … 619 622 DO i = 1, number_of_particle_groups 620 623 IF ( density_ratio(i) /= 0.0_wp .AND. radius(i) == 0 ) THEN 621 WRITE( message_string, * ) 'particle group #', i, ' has a',&624 WRITE( message_string, * ) 'particle group #', i, ' has a', & 622 625 'density ratio /= 0 but radius = 0' 623 626 CALL message( 'lpm_init', 'PA0215', 1, 2, 0, 6, 0 )
Note: See TracChangeset
for help on using the changeset viewer.