Changeset 1257 for palm/trunk/SOURCE/diffusion_w.f90
- Timestamp:
- Nov 8, 2013 3:18:40 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/diffusion_w.f90
r1132 r1257 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! openacc loop and loop vector clauses removed, declare create moved after 23 ! the FORTRAN declaration statement 23 24 ! 24 25 ! Former revisions: … … 214 215 REAL :: kmxm, kmxp, kmym, kmyp 215 216 217 REAL, DIMENSION(nzb:nzt+1,nys:nyn,nxl:nxr) :: wsus, wsvs 216 218 !$acc declare create ( wsus, wsvs ) 217 REAL, DIMENSION(nzb:nzt+1,nys:nyn,nxl:nxr) :: wsus, wsvs218 219 219 220 220 ! … … 231 231 !$acc present ( ddzu, ddzw, fwxm, fwxp, fwym, fwyp, wall_w_x, wall_w_y ) & 232 232 !$acc present ( nzb_w_inner, nzb_w_outer ) 233 !$acc loop234 233 DO i = i_left, i_right 235 234 DO j = j_south, j_north 236 !$acc loop vector( 32 )237 235 DO k = 1, nzt 238 236 IF ( k > nzb_w_outer(j,i) ) THEN … … 268 266 ! 269 267 !-- Wall functions at all vertical walls, where necessary 270 !$acc loop vector( 32 )271 268 DO k = 1,nzt 272 269
Note: See TracChangeset
for help on using the changeset viewer.