Changeset 1257 for palm/trunk/SOURCE/prognostic_equations.f90
- Timestamp:
- Nov 8, 2013 3:18:40 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/prognostic_equations.f90
r1247 r1257 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! openacc loop vector clauses removed, independent clauses added 23 23 ! 24 24 ! Former revisions: … … 1536 1536 !-- Prognostic equation for u-velocity component 1537 1537 !$acc kernels present( nzb_u_inner, rdf, tend, tu_m, u, ug, u_p ) 1538 !$acc loop 1538 !$acc loop independent 1539 1539 DO i = i_left, i_right 1540 !$acc loop independent 1540 1541 DO j = j_south, j_north 1541 !$acc loop vector( 32 )1542 !$acc loop independent 1542 1543 DO k = 1, nzt 1543 1544 IF ( k > nzb_u_inner(j,i) ) THEN … … 1602 1603 !-- Prognostic equation for v-velocity component 1603 1604 !$acc kernels present( nzb_v_inner, rdf, tend, tv_m, v, vg, v_p ) 1604 !$acc loop 1605 !$acc loop independent 1605 1606 DO i = i_left, i_right 1607 !$acc loop independent 1606 1608 DO j = j_south, j_north 1607 !$acc loop vector( 32 )1609 !$acc loop independent 1608 1610 DO k = 1, nzt 1609 1611 IF ( k > nzb_v_inner(j,i) ) THEN … … 1664 1666 !-- Prognostic equation for w-velocity component 1665 1667 !$acc kernels present( nzb_w_inner, rdf, tend, tw_m, w, w_p ) 1666 !$acc loop 1668 !$acc loop independent 1667 1669 DO i = i_left, i_right 1670 !$acc loop independent 1668 1671 DO j = j_south, j_north 1669 !$acc loop vector( 32 )1672 !$acc loop independent 1670 1673 DO k = 1, nzt-1 1671 1674 IF ( k > nzb_w_inner(j,i) ) THEN … … 1762 1765 !$acc kernels present( nzb_s_inner, rdf_sc, ptdf_x, ptdf_y, pt_init ) & 1763 1766 !$acc present( tend, tpt_m, pt, pt_p ) 1764 !$acc loop 1767 !$acc loop independent 1765 1768 DO i = i_left, i_right 1769 !$acc loop independent 1766 1770 DO j = j_south, j_north 1767 !$acc loop vector( 32 )1771 !$acc loop independent 1768 1772 DO k = 1, nzt 1769 1773 IF ( k > nzb_s_inner(j,i) ) THEN … … 2012 2016 !-- value is reduced by 90%. 2013 2017 !$acc kernels present( e, e_p, nzb_s_inner, tend, te_m ) 2014 !$acc loop 2018 !$acc loop independent 2015 2019 DO i = i_left, i_right 2020 !$acc loop independent 2016 2021 DO j = j_south, j_north 2017 !$acc loop vector( 32 )2022 !$acc loop independent 2018 2023 DO k = 1, nzt 2019 2024 IF ( k > nzb_s_inner(j,i) ) THEN
Note: See TracChangeset
for help on using the changeset viewer.