Ignore:
Timestamp:
Nov 30, 2016 2:34:05 PM (5 years ago)
Author:
raasch
Message:

mostly openmp related bugfixes

File:
1 edited

Legend:

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

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