Changeset 1128 for palm/trunk/SOURCE/coriolis.f90
- Timestamp:
- Apr 12, 2013 6:19:32 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/coriolis.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: … … 167 168 !$acc kernels present( nzb_u_inner, tend, v, vg, w ) 168 169 !$acc loop 169 DO i = nxlu, nxr170 DO j = nys, nyn170 DO i = i_left, i_right 171 DO j = j_south, j_north 171 172 !$acc loop vector( 32 ) 172 173 DO k = 1, nzt … … 190 191 !$acc kernels present( nzb_v_inner, tend, u, ug ) 191 192 !$acc loop 192 DO i = nxl, nxr193 DO j = nysv, nyn193 DO i = i_left, i_right 194 DO j = j_south, j_north 194 195 !$acc loop vector( 32 ) 195 196 DO k = 1, nzt … … 209 210 !$acc kernels present( nzb_w_inner, tend, u ) 210 211 !$acc loop 211 DO i = nxl, nxr212 DO j = nys, nyn212 DO i = i_left, i_right 213 DO j = j_south, j_north 213 214 !$acc loop vector( 32 ) 214 215 DO k = 1, nzt
Note: See TracChangeset
for help on using the changeset viewer.