Changeset 4017 for palm/trunk/SOURCE/check_parameters.f90

Timestamp:

Jun 6, 2019 12:16:46 PM (5 years ago)

Author:

schwenkel

Message:

Modularization of all lagrangian particle model code components

File:

• palm/trunk/SOURCE/check_parameters.f90 (modified) (4 diffs)

palm/trunk/SOURCE/check_parameters.f90

@@ -790 +790 @@
     USE control_parameters
 
-    USE dvrp_variables
-
     USE grid_variables
 
@@ -817 +815 @@
                dots_max, dots_num, dots_label
 
-    USE particle_attributes
-
+    USE particle_attributes,                                                   &
+        ONLY:  particle_advection, use_sgs_for_particles
+        
     USE pegrid
 
@@ -1412 +1411 @@
        CALL message( 'check_parameters', 'PA0442', 1, 2, 0, 6, 0 )
     ENDIF
-
-!
-!-- Collision kernels:
-    SELECT CASE ( TRIM( collision_kernel ) )
-
-       CASE ( 'hall', 'hall_fast' )
-          hall_kernel = .TRUE.
-
-       CASE ( 'wang', 'wang_fast' )
-          wang_kernel = .TRUE.
-
-       CASE ( 'none' )
-
-
-       CASE DEFAULT
-          message_string = 'unknown collision kernel: collision_kernel = "' // &
-                           TRIM( collision_kernel ) // '"'
-          CALL message( 'check_parameters', 'PA0350', 1, 2, 0, 6, 0 )
-
-    END SELECT
-    IF ( collision_kernel(6:9) == 'fast' )  use_kernel_tables = .TRUE.
 
 !
@@ -3787 +3765 @@
        CALL message( 'check_parameters', 'PA0157', 1, 2, 0, 6, 0 )
     ENDIF
-
-!
-!-- Check particle attributes
-    IF ( particle_color /= 'none' )  THEN
-       IF ( particle_color /= 'absuv'  .AND.  particle_color /= 'pt*'  .AND.   &
-            particle_color /= 'z' )  THEN
-          message_string = 'illegal value for parameter particle_color: ' //   &
-                           TRIM( particle_color)
-          CALL message( 'check_parameters', 'PA0313', 1, 2, 0, 6, 0 )
-       ELSE
-          IF ( color_interval(2) <= color_interval(1) )  THEN
-             message_string = 'color_interval(2) <= color_interval(1)'
-             CALL message( 'check_parameters', 'PA0315', 1, 2, 0, 6, 0 )
-          ENDIF
-       ENDIF
-    ENDIF
-
-    IF ( particle_dvrpsize /= 'none' )  THEN
-       IF ( particle_dvrpsize /= 'absw' )  THEN
-          message_string = 'illegal value for parameter particle_dvrpsize:' // &
-                           ' ' // TRIM( particle_dvrpsize)
-          CALL message( 'check_parameters', 'PA0314', 1, 2, 0, 6, 0 )
-       ELSE
-          IF ( dvrpsize_interval(2) <= dvrpsize_interval(1) )  THEN
-             message_string = 'dvrpsize_interval(2) <= dvrpsize_interval(1)'
-             CALL message( 'check_parameters', 'PA0316', 1, 2, 0, 6, 0 )
-          ENDIF
-       ENDIF
-    ENDIF
-
+    
 !
 !-- Prevent empty time records in volume, cross-section and masked data in case