Changeset 1257 for palm/trunk/SOURCE/wall_fluxes.f90
- Timestamp:
- Nov 8, 2013 3:18:40 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/wall_fluxes.f90
r1154 r1257 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! openacc loop and loop vector clauses removed 23 23 ! 24 24 ! Former revisions: … … 270 270 !-- All subsequent variables are computed for the respective 271 271 !-- location where the respective flux is defined. 272 !$acc loop independent vector( 32 )272 !$acc loop independent 273 273 DO k = nzb_uvw_inner(j,i)+1, nzb_uvw_outer(j,i) 274 274 … … 676 676 !$acc kernels present( nzb_diff_s_inner, nzb_diff_s_outer, pt, rif_wall ) & 677 677 !$acc present( u, v, w, wall, wall_flux, z0 ) 678 !$acc loop679 678 DO i = i_left, i_right 680 679 DO j = j_south, j_north 681 !$acc loop vector(32)682 680 DO k = min_inner, max_outer 683 681 !
Note: See TracChangeset
for help on using the changeset viewer.