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

Timestamp:

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

Author:

knoop

Message:

OpenACC port for SPEC

File:

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

palm/trunk/SOURCE/basic_constants_and_equations_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! OpenACC port for SPEC
+! 
+! 3449 2018-10-29 19:36:56Z suehring
 ! +degc_to_k 
 ! 
@@ -58 +61 @@
     REAL(wp), PARAMETER ::  molecular_weight_of_water = 0.01801528_wp !< mol. m. H2O (kg mol-1)
     REAL(wp), PARAMETER ::  pi = 3.141592654_wp                       !< PI
+    !$ACC DECLARE COPYIN(pi)
     REAL(wp), PARAMETER ::  rho_l = 1.0E3_wp                          !< density of water (kg m-3)
     REAL(wp), PARAMETER ::  rho_nacl = 2165.0_wp                      !< density of NaCl (kg m-3)