Changeset 4432 for palm/trunk

Timestamp:

Feb 28, 2020 7:43:21 AM (5 years ago)

Author:

raasch

Message:

bugfix for previous revision (vector directive was changed by mistake)

File:

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

palm/trunk/SOURCE/poismg_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix for previous revision (vector directive was changed by mistake)
+! 
+! 4429 2020-02-27 15:24:30Z raasch
 ! statement added to avoid compile error due to unused dummy argument
 ! bugfix: cpp-directives added for serial mode
@@ -2273 +2276 @@
 
                 IF ( i == nxl_mg(l) )  THEN
-                   !DIR$ IVDEP       INTEGER(iwp) ::  ngp       !<
-
+                   !DIR$ IVDEP
                    DO  k = nzb+1, ind_even_odd
                       p_mg(k,j,nxr_mg(l)+1)  = temp(k,j1,ixr+1)