Changeset 1128 for palm/trunk/SOURCE/wall_fluxes.f90
- Timestamp:
- Apr 12, 2013 6:19:32 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/wall_fluxes.f90
r1037 r1128 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! loop index bounds in accelerator version replaced by i_left, i_right, j_south, 23 ! j_north 23 24 ! 24 25 ! Former revisions: … … 256 257 !$acc present( u, v, w, wall, wall_flux, z0 ) 257 258 !$acc loop 258 DO i = nxl, nxr259 DO j = nys, nyn259 DO i = i_left, i_right 260 DO j = j_south, j_north 260 261 !$acc loop vector( 32 ) 261 262 DO k = min_inner, max_outer … … 666 667 !$acc present( u, v, w, wall, wall_flux, z0 ) 667 668 !$acc loop 668 DO i = nxl, nxr669 DO j = nys, nyn669 DO i = i_left, i_right 670 DO j = j_south, j_north 670 671 !$acc loop vector(32) 671 672 DO k = min_inner, max_outer
Note: See TracChangeset
for help on using the changeset viewer.