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

Timestamp:

Nov 22, 2012 5:42:36 PM (12 years ago)

Author:

hoffmann

Message:

cloud physics: rain sedimentation and turbulence effects

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
+! Bugfix: It is not allowed to use cloud_scheme = seifert_beheng without 
+!         precipitation in order to save computational resources.
 !
 !
@@ -886 +888 @@
                         'loop_optimization = cache'
        CALL message( 'check_parameters', 'PA0362', 1, 2, 0, 6, 0 )
+    ENDIF 
+
+    IF ( cloud_physics  .AND. icloud_scheme == 0  .AND.                      &
+         .NOT. precipitation ) THEN
+       message_string = 'cloud_scheme = seifert_beheng requires ' // &
+                        'precipitation = .TRUE.'
+       CALL message( 'check_parameters', 'PA0363', 1, 2, 0, 6, 0 )
     ENDIF