Ignore:
Timestamp:
May 28, 2018 7:55:41 AM (3 years ago)
Author:
Giersch
Message:

Code adjusted according to coding standards, renamed namelists, error messages revised until PA0347, output CASE 108 disabled

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/lpm_init.f90

    r3039 r3045  
    2525! -----------------
    2626! $Id$
     27! Error message revised
     28!
     29! 3039 2018-05-24 13:13:11Z schwenkel
    2730! bugfix for lcm with grid stretching
    2831!
     
    333336!-- Check the number of particle groups.
    334337    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 ',      &
    338341                                  max_number_of_particle_groups
    339342       CALL message( 'lpm_init', 'PA0213', 0, 1, 0, 6, 0 )
     
    345348!-- propably (not realized so far).
    346349    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 '//      &
    348351                                  'with particles'
    349352       CALL message( 'lpm_init', 'PA0212', 0, 1, 0, 6, 0 )
     
    466469
    467470       CASE DEFAULT
    468           WRITE( message_string, * )  'unknown boundary condition ',   &
     471          WRITE( message_string, * )  'unknown boundary condition ',           &
    469472                                       'bc_par_b = "', TRIM( bc_par_b ), '"'
    470473          CALL message( 'lpm_init', 'PA0217', 1, 2, 0, 6, 0 )
     
    483486
    484487       CASE DEFAULT
    485           WRITE( message_string, * ) 'unknown boundary condition ',   &
     488          WRITE( message_string, * ) 'unknown boundary condition ',            &
    486489                                     'bc_par_t = "', TRIM( bc_par_t ), '"'
    487490          CALL message( 'lpm_init', 'PA0218', 1, 2, 0, 6, 0 )
     
    540543
    541544       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 ), '"'
    544547          CALL message( 'lpm_init', 'PA0146', 1, 2, 0, 6, 0 )
    545548
     
    557560
    558561       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 ), '"'
    561564          CALL message( 'lpm_init', 'PA0147', 1, 2, 0, 6, 0 )
    562565
     
    619622       DO  i = 1, number_of_particle_groups
    620623          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',      &
    622625                                        'density ratio /= 0 but radius = 0'
    623626             CALL message( 'lpm_init', 'PA0215', 1, 2, 0, 6, 0 )
Note: See TracChangeset for help on using the changeset viewer.