Changeset 3634 for palm/trunk/SOURCE/timestep_scheme_steering.f90

Timestamp:

Dec 18, 2018 12:31:28 PM (6 years ago)

Author:

knoop

Message:

OpenACC port for SPEC

File:

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

palm/trunk/SOURCE/timestep_scheme_steering.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! OpenACC port for SPEC
+! 
+! 2718 2018-01-02 08:49:38Z maronga
 ! Corrected "Former revisions" section
 ! 
@@ -90 +93 @@
        ENDIF
 
+       !$ACC UPDATE DEVICE(tsc(1:5))
+
     ELSEIF ( timestep_scheme == 'euler' )  THEN
 !