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

Timestamp:

Mar 21, 2009 8:14:44 AM (15 years ago)

Author:

raasch

Message:

new dvrp features added

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
+! Check particle_color, particle_dvrpsize, color_interval, dvrpsize_interval
 ! Bugfix: pressure included for profile output
 ! Check pressure gradient conditions
@@ -90 +91 @@
     USE constants
     USE control_parameters
+    USE dvrp_variables
     USE grid_variables
     USE indices
@@ -2916 +2918 @@
 
 !
+!-- 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_color)
+          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
+
+!
 !-- Check &userpar parameters
     CALL user_check_parameters