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

Timestamp:

Feb 17, 2012 9:09:57 AM (12 years ago)

Author:

raasch

Message:

preliminary checkin of new curvature/solution effects on droplet growth

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-!
+! check for curvature_solution_effects
 !
 ! Former revisions:
@@ -165 +165 @@
 
     USE arrays_3d
+    USE cloud_parameters
     USE constants
     USE control_parameters
@@ -660 +661 @@
     ENDIF
 
+    IF ( use_sgs_for_particles  .AND.  curvature_solution_effects )  THEN
+       message_string = 'use_sgs_for_particles = .TRUE. not allowed with ' // &
+                        'curvature_solution_effects = .TRUE.'
+       CALL message( 'check_parameters', 'PA0349', 1, 2, 0, 6, 0 )
+    ENDIF
+
 !
 !-- Timestep schemes: