Changeset 4472 for palm/trunk/SOURCE/time_integration.f90

Timestamp:

Mar 24, 2020 12:21:00 PM (4 years ago)

Author:

Giersch

Message:

Profile output of the Kolmogorov length scale added

File:

• palm/trunk/SOURCE/time_integration.f90 (modified) (5 diffs)

palm/trunk/SOURCE/time_integration.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
-! 
+!
+!
 ! Former revisions:
 ! -----------------
 ! $Id$
+! OPENACC COPYIN directive for ddx and ddy added
+!
+! 4466 2020-03-20 16:14:41Z suehring
 ! Add advection fluxes to ACC copyin
 !
@@ -289 +292 @@
         ONLY:  flight_measurement
 
+    USE grid_variables,                                                                            &
+        ONLY:  ddx, ddy
+
     USE indices,                                                                                   &
         ONLY:  nbgp, nx, nxl, nxlg, nxr, nxrg, nzb, nzt
@@ -524 +530 @@
 !$ACC DATA &
 !$ACC COPYIN(tsc(1:5))
+
+!
+!-- Copy data from grid_variables
+!$ACC DATA &
+!$ACC COPYIN(ddx, ddy)
 
 !
@@ -565 +576 @@
 !$ACC COPY(sums_wsss_ws_l(nzb:nzt+1,0)) &
 !$ACC COPY(sums_salsa_ws_l(nzb:nzt+1,0))
+
+!
+!-- Next statement is to avoid compiler warnings about unused variables. Please
+!-- remove in case that you are using them. ddx and ddy need to be defined in
+!-- time_integration because of ACC COPYIN directive.
+    ddx = ddx
+    ddy = ddy
 
 #if defined( _OPENACC )
@@ -1727 +1745 @@
 !$ACC END DATA
 !$ACC END DATA
+!$ACC END DATA
 
 #if defined( __parallel )