Ignore:
Timestamp:
Jun 6, 2019 12:16:46 PM (5 years ago)
Author:
schwenkel
Message:

Modularization of all lagrangian particle model code components

File:
1 edited

Legend:

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

    r3994 r4017  
    790790    USE control_parameters
    791791
    792     USE dvrp_variables
    793 
    794792    USE grid_variables
    795793
     
    817815               dots_max, dots_num, dots_label
    818816
    819     USE particle_attributes
    820 
     817    USE particle_attributes,                                                   &
     818        ONLY:  particle_advection, use_sgs_for_particles
     819       
    821820    USE pegrid
    822821
     
    14121411       CALL message( 'check_parameters', 'PA0442', 1, 2, 0, 6, 0 )
    14131412    ENDIF
    1414 
    1415 !
    1416 !-- Collision kernels:
    1417     SELECT CASE ( TRIM( collision_kernel ) )
    1418 
    1419        CASE ( 'hall', 'hall_fast' )
    1420           hall_kernel = .TRUE.
    1421 
    1422        CASE ( 'wang', 'wang_fast' )
    1423           wang_kernel = .TRUE.
    1424 
    1425        CASE ( 'none' )
    1426 
    1427 
    1428        CASE DEFAULT
    1429           message_string = 'unknown collision kernel: collision_kernel = "' // &
    1430                            TRIM( collision_kernel ) // '"'
    1431           CALL message( 'check_parameters', 'PA0350', 1, 2, 0, 6, 0 )
    1432 
    1433     END SELECT
    1434     IF ( collision_kernel(6:9) == 'fast' )  use_kernel_tables = .TRUE.
    14351413
    14361414!
     
    37873765       CALL message( 'check_parameters', 'PA0157', 1, 2, 0, 6, 0 )
    37883766    ENDIF
    3789 
    3790 !
    3791 !-- Check particle attributes
    3792     IF ( particle_color /= 'none' )  THEN
    3793        IF ( particle_color /= 'absuv'  .AND.  particle_color /= 'pt*'  .AND.   &
    3794             particle_color /= 'z' )  THEN
    3795           message_string = 'illegal value for parameter particle_color: ' //   &
    3796                            TRIM( particle_color)
    3797           CALL message( 'check_parameters', 'PA0313', 1, 2, 0, 6, 0 )
    3798        ELSE
    3799           IF ( color_interval(2) <= color_interval(1) )  THEN
    3800              message_string = 'color_interval(2) <= color_interval(1)'
    3801              CALL message( 'check_parameters', 'PA0315', 1, 2, 0, 6, 0 )
    3802           ENDIF
    3803        ENDIF
    3804     ENDIF
    3805 
    3806     IF ( particle_dvrpsize /= 'none' )  THEN
    3807        IF ( particle_dvrpsize /= 'absw' )  THEN
    3808           message_string = 'illegal value for parameter particle_dvrpsize:' // &
    3809                            ' ' // TRIM( particle_dvrpsize)
    3810           CALL message( 'check_parameters', 'PA0314', 1, 2, 0, 6, 0 )
    3811        ELSE
    3812           IF ( dvrpsize_interval(2) <= dvrpsize_interval(1) )  THEN
    3813              message_string = 'dvrpsize_interval(2) <= dvrpsize_interval(1)'
    3814              CALL message( 'check_parameters', 'PA0316', 1, 2, 0, 6, 0 )
    3815           ENDIF
    3816        ENDIF
    3817     ENDIF
    3818 
     3767   
    38193768!
    38203769!-- Prevent empty time records in volume, cross-section and masked data in case
Note: See TracChangeset for help on using the changeset viewer.