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

Timestamp:

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

Author:

raasch

Message:

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

File:

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

palm/trunk/SOURCE/exchange_horiz.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! OpenACC directives re-formatted
+! 
+! 3657 2019-01-07 20:14:18Z knoop
 ! OpenACC port for SPEC
 ! 
@@ -104 +107 @@
 
     USE control_parameters,                                                    &
-        ONLY:  bc_lr_cyc, bc_ns_cyc, grid_level, mg_switch_to_pe0,             &
-               synchronous_exchange
+        ONLY:  bc_lr_cyc, bc_ns_cyc, grid_level, mg_switch_to_pe0, synchronous_exchange
                 
     USE cpulog,                                                                &
@@ -120 +122 @@
 
 
-#ifdef _OPENACC
+#if defined( _OPENACC )
     INTEGER(iwp) ::  i           !<
 #endif
+
     INTEGER(iwp) ::  nbgp_local  !<
     
@@ -131 +134 @@
     CALL cpu_log( log_point_s(2), 'exchange_horiz', 'start' )
 
-#ifdef _OPENACC
+#if defined( _OPENACC )
     !$ACC UPDATE IF_PRESENT ASYNC(1) &
     !$ACC HOST(ar(:,:,nxr-nbgp_local+1:nxr)) &
@@ -308 +311 @@
 #endif
 
-#ifdef _OPENACC
+#if defined( _OPENACC )
     DO i = nxl-nbgp_local, nxr+nbgp_local
        !$ACC UPDATE IF_PRESENT ASYNC(2) &