Changeset 1221 for palm/trunk/SOURCE/modules.f90

Timestamp:

Sep 10, 2013 8:59:13 AM (11 years ago)

Author:

raasch

Message:

New:

---

openACC porting of reduction operations
additional 3D-flag arrays for replacing the 2D-index arrays nzb_s_inner and nzb_diff_s_inner
(flow_statistics, init_grid, init_3d_model, modules, palm, pres, time_integration)

Changed:

---

for PGI/openACC performance reasons set default compile options for openACC to "-ta=nocache",
and set environment variable PGI_ACC_SYNCHRONOUS=1
(MAKE.inc.pgi.openacc, palm_simple_run)

wall_flags_0 changed to 32bit INTEGER, additional array wall_flags_00 introduced to hold
bits 32-63
(advec_ws, init_grid, modules, palm)

Errors:

---

dummy argument tri in 1d-routines replaced by tri_for_1d because of name
conflict with arry tri in module arrays_3d
(tridia_solver)

File:

• palm/trunk/SOURCE/modules.f90 (modified) (4 diffs)

palm/trunk/SOURCE/modules.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-!
+! wall_flags_0 changed to 32bit int, +wall_flags_00,
+! +rflags_s_inner, rflags_invers
 !
 ! Former revisions:
@@ -1088 +1089 @@
 ! Description:
 ! ------------
-! Definition of array bounds and number of gridpoints
+! Definition of array bounds, number of gridpoints, and wall flag arrays
 !------------------------------------------------------------------------------!
 
@@ -1112 +1113 @@
     INTEGER, DIMENSION(:,:,:), POINTER ::  flags
 
-    INTEGER( KIND = SELECTED_INT_KIND(11) ), DIMENSION(:,:,:), ALLOCATABLE ::  &
-                wall_flags_0  ! need to have 34 Bit
+    INTEGER, DIMENSION(:,:,:), ALLOCATABLE ::  wall_flags_0, wall_flags_00
 
     INTEGER, DIMENSION(:,:,:), ALLOCATABLE,  TARGET ::                         &
@@ -1120 +1120 @@
                 wall_flags_9, wall_flags_10
 
+    REAL, DIMENSION(:,:,:), ALLOCATABLE ::  rflags_s_inner, rflags_invers
 
     SAVE