Changeset 1257 for palm/trunk/SOURCE/coriolis.f90
- Timestamp:
- Nov 8, 2013 3:18:40 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/coriolis.f90
r1132 r1257 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! openacc loop and loop vector clauses removed 23 23 ! 24 24 ! Former revisions: … … 170 170 CASE ( 1 ) 171 171 !$acc kernels present( nzb_u_inner, tend, v, vg, w ) 172 !$acc loop173 172 DO i = i_left, i_right 174 173 DO j = j_south, j_north 175 !$acc loop vector( 32 )176 174 DO k = 1, nzt 177 175 IF ( k > nzb_u_inner(j,i) ) THEN … … 193 191 CASE ( 2 ) 194 192 !$acc kernels present( nzb_v_inner, tend, u, ug ) 195 !$acc loop196 193 DO i = i_left, i_right 197 194 DO j = j_south, j_north 198 !$acc loop vector( 32 )199 195 DO k = 1, nzt 200 196 IF ( k > nzb_v_inner(j,i) ) THEN … … 212 208 CASE ( 3 ) 213 209 !$acc kernels present( nzb_w_inner, tend, u ) 214 !$acc loop215 210 DO i = i_left, i_right 216 211 DO j = j_south, j_north 217 !$acc loop vector( 32 )218 212 DO k = 1, nzt 219 213 IF ( k > nzb_w_inner(j,i) ) THEN
Note: See TracChangeset
for help on using the changeset viewer.