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

Timestamp:

Sep 27, 2012 9:23:24 AM (12 years ago)

Author:

raasch

Message:

Starting with changes required for GPU optimization. OpenACC statements for using NVIDIA GPUs added.
Adjustment of mixing length to the Prandtl mixing length at first grid point above ground removed.
mask array is set zero for ghost boundaries

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-!
+! acc allowed for loop optimization,
+! checks for adjustment of mixing length to the Prandtl mixing length removed
 !
 ! Former revisions:
@@ -481 +482 @@
        ENDIF
     ENDIF
-    IF ( loop_optimization /= 'noopt'  .AND.  loop_optimization /= 'cache' &
-         .AND.  loop_optimization /= 'vector' )  THEN
-       message_string = 'illegal value given for loop_optimization: "' // &
-                        TRIM( loop_optimization ) // '"'
-       CALL message( 'check_parameters', 'PA0013', 1, 2, 0, 6, 0 )
-    ENDIF
+
+    SELECT CASE ( TRIM( loop_optimization ) )
+
+       CASE ( 'acc', 'cache', 'noopt', 'vector' )
+          CONTINUE
+
+       CASE DEFAULT
+          message_string = 'illegal value given for loop_optimization: "' // &
+                           TRIM( loop_optimization ) // '"'
+          CALL message( 'check_parameters', 'PA0013', 1, 2, 0, 6, 0 )
+
+    END SELECT
 
 !
@@ -1394 +1401 @@
     IF ( bc_e_b == 'neumann' )  THEN
        ibc_e_b = 1
-       IF ( adjust_mixing_length  .AND.  prandtl_layer )  THEN
-          message_string = 'adjust_mixing_length = TRUE and bc_e_b = "neumann"'
-          CALL message( 'check_parameters', 'PA0055', 0, 1, 0, 6, 0 )
-       ENDIF
     ELSEIF ( bc_e_b == '(u*)**2+neumann' )  THEN
        ibc_e_b = 2
-       IF ( .NOT. adjust_mixing_length  .AND.  prandtl_layer )  THEN
-          message_string = 'adjust_mixing_length = FALSE and bc_e_b = "' // &
+       IF ( prandtl_layer )  THEN
+          message_string = 'adjust mixing length = FALSE and bc_e_b = "' // &
                            TRIM( bc_e_b ) // '"'
           CALL message( 'check_parameters', 'PA0056', 0, 1, 0, 6, 0 )