Ignore:
Timestamp:
Dec 2, 2016 1:54:20 PM (5 years ago)
Author:
raasch
Message:

further openmp bugfix for lookup method

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/surface_layer_fluxes_mod.f90

    r2074 r2076  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! further openmp bugfix for lookup method
    2323!
    2424! Former revisions:
     
    688688       ELSEIF ( TRIM( most_method ) == 'lookup' )  THEN
    689689
    690           !$OMP PARALLEL DO PRIVATE( k, z_mo ) FIRSTPRIVATE( l_bnd ) LASTPRIVATE( l_bnd )
     690          !$OMP PARALLEL DO PRIVATE( k, l, z_mo ) FIRSTPRIVATE( l_bnd ) LASTPRIVATE( l_bnd )
    691691          !# WARNING: does not work on GPU so far because of DO  WHILE construct
    692692          !!!!!!$acc kernels loop
Note: See TracChangeset for help on using the changeset viewer.