Changeset 2076

Timestamp:

Dec 2, 2016 1:54:20 PM (8 years ago)

Author:

raasch

Message:

further openmp bugfix for lookup method

File:

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

palm/trunk/SOURCE/surface_layer_fluxes_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! further openmp bugfix for lookup method
 ! 
 ! Former revisions:
@@ -688 +688 @@
        ELSEIF ( TRIM( most_method ) == 'lookup' )  THEN
 
-          !$OMP PARALLEL DO PRIVATE( k, z_mo ) FIRSTPRIVATE( l_bnd ) LASTPRIVATE( l_bnd )
+          !$OMP PARALLEL DO PRIVATE( k, l, z_mo ) FIRSTPRIVATE( l_bnd ) LASTPRIVATE( l_bnd )
           !# WARNING: does not work on GPU so far because of DO  WHILE construct
           !!!!!!$acc kernels loop