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

Timestamp:

Apr 16, 2014 3:17:48 PM (10 years ago)

Author:

hoffmann

Message:

improved version of two-moment cloud physics

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
-! 
+! PA0363 removed
+! PA0362 changed 
+!
 ! Former revisions:
 ! -----------------
@@ -862 +863 @@
     ENDIF 
 
-    IF ( loop_optimization /= 'cache' .AND.  cloud_physics  .AND.            &
-         icloud_scheme == 0 ) THEN
+    IF ( .NOT. ( loop_optimization == 'cache'  .OR.                            &
+                 loop_optimization == 'vector' )                               &
+         .AND.  cloud_physics  .AND.  icloud_scheme == 0 )  THEN
        message_string = 'cloud_scheme = seifert_beheng requires ' // &
-                        'loop_optimization = cache'
+                        'loop_optimization = "cache" or "vector"'
        CALL message( 'check_parameters', 'PA0362', 1, 2, 0, 6, 0 )
     ENDIF 
-
-!    IF ( cloud_physics  .AND.  icloud_scheme == 0  .AND.  &
-!         .NOT. precipitation  .AND.  .NOT. drizzle ) THEN
-!       message_string = 'cloud_scheme = seifert_beheng requires ' // &
-!                        'precipitation = .TRUE. or drizzle = .TRUE.'
-!       CALL message( 'check_parameters', 'PA0363', 1, 2, 0, 6, 0 )
-!    ENDIF 
 
 !