Changeset 3761 for palm/trunk/SOURCE/tridia_solver_mod.f90

Timestamp:

Feb 25, 2019 3:31:42 PM (4 years ago)

Author:

raasch

Message:

unused variables removed, OpenACC directives re-formatted, statements added to avoid compiler warnings

File:

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

palm/trunk/SOURCE/tridia_solver_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! OpenACC modification to prevent compiler warning about unused variable
+! 
+! 3690 2019-01-22 22:56:42Z knoop
 ! OpenACC port for SPEC
 ! 
@@ -156 +159 @@
 
        USE arrays_3d,                                                          &
-           ONLY:  ddzu_pres, ddzw, rho_air_zw, tri
+           ONLY:  ddzu_pres, ddzw, rho_air_zw
+
+#if defined( _OPENACC )
+       USE arrays_3d,                                                          &
+           ONLY:  tri
+#endif
 
        IMPLICIT NONE