Changeset 1257 for palm/trunk/SOURCE/diffusion_e.f90
- Timestamp:
- Nov 8, 2013 3:18:40 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/diffusion_e.f90
r1182 r1257 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! openacc loop and loop vector clauses removed 23 23 ! 24 24 ! Former revisions: … … 326 326 !$acc kernels present( ddzu, ddzw, dd2zu, diss, e, km, l_grid ) & 327 327 !$acc present( nzb_s_inner, rif, tend, var, zu, zw ) 328 !$acc loop329 328 DO i = i_left, i_right 330 329 DO j = j_south, j_north 331 !$acc loop vector( 32 )332 330 DO k = 1, nzt 333 331 … … 395 393 !$acc kernels present( ddzu, ddzw, dd2zu, diss, e, km, l_grid ) & 396 394 !$acc present( nzb_s_inner, rif, tend, var, zu, zw ) 397 !$acc loop398 395 DO i = i_left, i_right 399 396 DO j = j_south, j_north 400 !$acc loop vector( 32 )401 397 DO k = 1, nzt 402 398 … … 466 462 IF ( use_sgs_for_particles .OR. wang_kernel .OR. turbulence ) THEN 467 463 !$acc kernels present( diss, nzb_s_inner ) 468 !$acc loop469 464 DO i = i_left, i_right 470 !$acc loop vector( 32 )471 465 DO j = j_south, j_north 472 466 diss(nzb_s_inner(j,i),j,i) = diss(nzb_s_inner(j,i)+1,j,i)
Note: See TracChangeset
for help on using the changeset viewer.