Changeset 1128 for palm/trunk/SOURCE/diffusion_s.f90
- Timestamp:
- Apr 12, 2013 6:19:32 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/diffusion_s.f90
r1093 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: … … 226 227 !$acc present( wall_w_x, wall_w_y ) 227 228 !$acc loop 228 DO i = nxl, nxr229 DO j = nys,nyn229 DO i = i_left, i_right 230 DO j = j_south, j_north 230 231 ! 231 232 !-- Compute horizontal diffusion
Note: See TracChangeset
for help on using the changeset viewer.