Changeset 2073 for palm/trunk/SOURCE/surface_layer_fluxes_mod.f90
- Timestamp:
- Nov 30, 2016 2:34:05 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/surface_layer_fluxes_mod.f90
r2038 r2073 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! openmp bugfix for lookup method 23 23 ! 24 24 ! Former revisions: … … 685 685 ELSEIF ( TRIM( most_method ) == 'lookup' ) THEN 686 686 687 !$OMP PARALLEL DO PRIVATE( k, z_mo ) 687 !$OMP PARALLEL DO PRIVATE( k, z_mo ) FIRSTPRIVATE( l_bnd ) LASTPRIVATE( l_bnd ) 688 688 !# WARNING: does not work on GPU so far because of DO WHILE construct 689 689 !!!!!!$acc kernels loop
Note: See TracChangeset
for help on using the changeset viewer.