Changeset 1257 for palm/trunk/SOURCE/buoyancy.f90
- Timestamp:
- Nov 8, 2013 3:18:40 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/buoyancy.f90
r1242 r1257 20 20 ! Currrent revisions: 21 21 ! ------------------ 22 ! 22 ! vector length (32) removed from openacc clause 23 23 ! 24 24 ! Former revisions: … … 220 220 DO i = i_left, i_right 221 221 DO j = j_south, j_north 222 !$acc loop independent vector (32)222 !$acc loop independent vector 223 223 DO k = nzb_s_inner(j,i)+1, nzt-1 224 224 tend(k,j,i) = tend(k,j,i) + atmos_ocean_sign * g * 0.5 * ( &
Note: See TracChangeset
for help on using the changeset viewer.