Changeset 2232 for palm/trunk/SOURCE/poismg_noopt.f90

Timestamp:

May 30, 2017 5:47:52 PM (7 years ago)

Author:

suehring

Message:

Adjustments according new topography and surface-modelling concept implemented

File:

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

palm/trunk/SOURCE/poismg_noopt.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfixes OpenMP
 ! 
 ! Former revisions:
@@ -495 +495 @@
     END SELECT
     
-!$OMP PARALLEL PRIVATE (i,j,k,ic,jc,kc)
+!$OMP PARALLEL PRIVATE (i,j,k,ic,jc,kc, rkjim,rkjip,rkjpi,rkjmi,rkjmim,rkjpim, &
+!$OMP rkjmip, rkjpip,rkmji,rkmjim,rkmjip,rkmjpi,rkmjmi,rkmjmim,rkmjpim,rkmjmip,&
+!$OMP rkmjpip          )
 !$OMP DO
     DO  ic = nxl_mg(l), nxr_mg(l)