Ignore:
Timestamp:
May 10, 2013 2:33:08 PM (8 years ago)
Author:
raasch
Message:

code adjustment of accelerator version for PGI 12.3 / CUDA 5.0

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/wall_fluxes.f90

    r1132 r1153  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! code adjustment of accelerator version for PGI 12.3 / CUDA 5.0
    2323!
    2424! Former revisions:
     
    259259       !$acc kernels present( hom, nzb_uvw_inner, nzb_uvw_outer, pt, rif_wall ) &
    260260       !$acc         present( u, v, w, wall, wall_flux, z0 )
    261        !$acc loop
     261       !$acc loop independent
    262262       DO  i = i_left, i_right
    263263          DO  j = j_south, j_north
    264              !$acc loop vector( 32 )
    265              DO  k = min_inner, max_outer
     264
     265             IF ( wall(j,i) /= 0.0 )  THEN
    266266!
    267267!--             All subsequent variables are computed for the respective
    268268!--             location where the respective flux is defined.
    269                 IF ( k >= nzb_uvw_inner(j,i)+1  .AND. &
    270                      k <= nzb_uvw_outer(j,i)    .AND.  wall(j,i) /= 0.0 )  THEN
     269                !$acc loop independent vector( 32 )
     270                DO  k = nzb_uvw_inner(j,i)+1, nzb_uvw_outer(j,i)
     271
    271272!
    272273!--                (1) Compute rifs, u_i, v_i, ws, pt' and w'pt'
     
    365366                   rif_wall(k,j,i,wall_index) = rifs
    366367
    367                 ENDIF
    368 
    369              ENDDO
     368!                ENDIF
     369
     370                ENDDO
     371
     372             ENDIF
     373
    370374          ENDDO
    371375       ENDDO
Note: See TracChangeset for help on using the changeset viewer.