Ignore:
Timestamp:
Sep 18, 2015 10:52:53 AM (6 years ago)
Author:
raasch
Message:

bugfix: temporary reduction variables in openacc brach are now initialized to zero

File:
1 edited

Legend:

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

    r1655 r1658  
    2121! Current revisions:
    2222! -----------------
    23 !
     23! bugfix: reduction variables in the openacc branch are now initialzed to zero
    2424!
    2525! Former revisions:
     
    17811781       !$acc parallel loop gang present( pt, rflags_invers, rmask, sums_l, u, v ) create( s1, s2, s3 )
    17821782       DO  k = nzb, nzt+1
     1783          s1 = 0
     1784          s2 = 0
     1785          s3 = 0
    17831786          !$acc loop vector collapse( 2 ) reduction( +: s1, s2, s3 )
    17841787          DO  i = nxl, nxr
     
    18031806          !$acc parallel loop gang present( rflags_invers, rmask, sums_l, sa ) create( s1 )
    18041807          DO  k = nzb, nzt+1
     1808             s1 = 0
    18051809             !$acc loop vector collapse( 2 ) reduction( +: s1 )
    18061810             DO  i = nxl, nxr
     
    18231827          !$acc parallel loop gang present( q, rflags_invers, rmask, sums_l, vpt ) create( s1, s2 )
    18241828          DO  k = nzb, nzt+1
     1829             s1 = 0
     1830             s2 = 0
    18251831             !$acc loop vector collapse( 2 ) reduction( +: s1, s2 )
    18261832             DO  i = nxl, nxr
     
    18391845             !$acc parallel loop gang present( pt, q, ql, rflags_invers, rmask, sums_l ) create( s1, s2 )
    18401846             DO  k = nzb, nzt+1
     1847                s1 = 0
     1848                s2 = 0
    18411849                !$acc loop vector collapse( 2 ) reduction( +: s1, s2 )
    18421850                DO  i = nxl, nxr
     
    18611869          !$acc parallel loop gang present( q, rflags_invers, rmask, sums_l ) create( s1 )
    18621870          DO  k = nzb, nzt+1
     1871             s1 = 0
    18631872             !$acc loop vector collapse( 2 ) reduction( +: s1 )
    18641873             DO  i = nxl, nxr
     
    20482057       !$acc parallel loop gang present( e, hom, kh, km, p, pt, w, rflags_invers, rmask, sums_l ) create( s1, s2, s3, s4, s5, s6, s7 )
    20492058       DO  k = nzb, nzt+1
     2059          s1 = 0
     2060          s2 = 0
     2061          s3 = 0
     2062          s4 = 0
     2063          s5 = 0
     2064          s6 = 0
     2065          s7 = 0
    20502066          !$acc loop vector collapse( 2 ) reduction( +: s1, s2, s3, s4, s5, s6, s7 )
    20512067          DO  i = nxl, nxr
     
    20802096          !$acc parallel loop gang present( hom, q, rflags_invers, rmask, sums_l ) create( s1 )
    20812097          DO  k = nzb, nzt+1
     2098             s1 = 0
    20822099             !$acc loop vector collapse( 2 ) reduction( +: s1 )
    20832100             DO  i = nxl, nxr
     
    20952112!--    Total and perturbation energy for the total domain (being
    20962113!--    collected in the last column of sums_l).
     2114       s1 = 0
    20972115       !$OMP DO
    20982116       !$acc parallel loop collapse(3) present( rflags_invers, rmask, u, v, w ) reduction(+:s1)
     
    21132131       !$OMP DO
    21142132       !$acc parallel present( rmask, sums_l, us, usws, vsws, ts ) create( s1, s2, s3, s4 )
     2133       s1 = 0
     2134       s2 = 0
     2135       s3 = 0
     2136       s4 = 0
    21152137       !$acc loop vector collapse( 2 ) reduction( +: s1, s2, s3, s4 )
    21162138       DO  i = nxl, nxr
     
    21322154       IF ( humidity )  THEN
    21332155          !$acc parallel present( qs, rmask, sums_l ) create( s1 )
     2156          s1 = 0
    21342157          !$acc loop vector collapse( 2 ) reduction( +: s1 )
    21352158          DO  i = nxl, nxr
     
    21502173          !$acc parallel loop gang present( u, v, w, rflags_invers, rmask, sums_l ) create( s1, s2, s3, s4, ust2, vst2, w2 )
    21512174          DO  k = nzb, nzt+1
     2175             s1 = 0
     2176             s2 = 0
     2177             s3 = 0
     2178             s4 = 0
    21522179             !$acc loop vector collapse( 2 ) reduction( +: s1, s2, s3, s4 )
    21532180             DO  i = nxl, nxr
     
    21762203          !$OMP DO
    21772204          !$acc parallel present( sums_l ) create( s1 )
     2205          s1 = 0
    21782206          !$acc loop reduction( +: s1 )
    21792207          DO  k = nzb, nzt+1
     
    22032231       !$acc parallel loop gang present( ddzu, kh, km, pt, u, v, w, rflags_invers, rmask, sums_l ) create( s1, s2, s3 )
    22042232       DO  k = nzb, nzt_diff
     2233          s1 = 0
     2234          s2 = 0
     2235          s3 = 0
    22052236          !$acc loop vector collapse( 2 ) reduction( +: s1, s2, s3 )
    22062237          DO  i = nxl, nxr
     
    22442275          !$acc parallel loop gang present( ddzu, kh, sa, rflags_invers, rmask, sums_l ) create( s1 )
    22452276          DO  k = nzb, nzt_diff
     2277             s1 = 0
    22462278             !$acc loop vector collapse( 2 ) reduction( +: s1 )
    22472279             DO  i = nxl, nxr
     
    22642296          !$acc parallel loop gang present( ddzu, kh, q, vpt, rflags_invers, rmask, sums_l ) create( s1, s2 )
    22652297          DO  k = nzb, nzt_diff
     2298             s1 = 0
     2299             s2 = 0
    22662300             !$acc loop vector collapse( 2 ) reduction( +: s1, s2 )
    22672301             DO  i = nxl, nxr
     
    22862320             !$acc parallel loop gang present( ddzu, kh, q, ql, rflags_invers, rmask, sums_l ) create( s1 )
    22872321             DO  k = nzb, nzt_diff
     2322                s1 = 0
    22882323                !$acc loop vector collapse( 2 ) reduction( +: s1 )
    22892324                DO  i = nxl, nxr
     
    23092344          !$acc parallel loop gang present( ddzu, kh, q, rflags_invers, rmask, sums_l ) create( s1 )
    23102345          DO  k = nzb, nzt_diff
     2346             s1 = 0
    23112347             !$acc loop vector collapse( 2 ) reduction( +: s1 )
    23122348             DO  i = nxl, nxr
     
    23282364          !$OMP DO
    23292365          !$acc parallel present( rmask, shf, sums_l, usws, vsws ) create( s1, s2, s3, s4, s5 )
     2366          s1 = 0
     2367          s2 = 0
     2368          s3 = 0
     2369          s4 = 0
     2370          s5 = 0
    23302371          !$acc loop vector collapse( 2 ) reduction( +: s1, s2, s3, s4, s5 )
    23312372          DO  i = nxl, nxr
     
    23512392             !$OMP DO
    23522393             !$acc parallel present( rmask, saswsb, sums_l ) create( s1 )
     2394             s1 = 0
    23532395             !$acc loop vector collapse( 2 ) reduction( +: s1 )
    23542396             DO  i = nxl, nxr
     
    23662408             !$OMP DO
    23672409             !$acc parallel present( pt, q, qsws, rmask, shf, sums_l ) create( s1, s2 )
     2410             s1 = 0
     2411             s2 = 0
    23682412             !$acc loop vector collapse( 2 ) reduction( +: s1, s2 )
    23692413             DO  i = nxl, nxr
     
    23822426                !$OMP DO
    23832427                !$acc parallel present( pt, q, ql, qsws, rmask, shf, sums_l ) create( s1 )
     2428                s1 = 0
    23842429                !$acc loop vector collapse( 2 ) reduction( +: s1 )
    23852430                DO  i = nxl, nxr
     
    23992444                !$OMP DO
    24002445                !$acc parallel present( qsws, rmask, sums_l ) create( s1 )
     2446                s1 = 0
    24012447                !$acc loop vector collapse( 2 ) reduction( +: s1 )
    24022448                DO  i = nxl, nxr
     
    24182464             !$OMP DO
    24192465             !$acc parallel present( qsws, rmask, sums_l ) create( s1 )
     2466             s1 = 0
    24202467             !$acc loop vector collapse( 2 ) reduction( +: s1 )
    24212468             DO  i = nxl, nxr
     
    24372484          !$OMP DO
    24382485          !$acc parallel present( rmask, sums_l, tswst, uswst, vswst ) create( s1, s2, s3, s4, s5 )
     2486          s1 = 0
     2487          s2 = 0
     2488          s3 = 0
     2489          s4 = 0
     2490          s5 = 0
    24392491          !$acc loop vector collapse( 2 ) reduction( +: s1, s2, s3, s4, s5 )
    24402492          DO  i = nxl, nxr
     
    24582510             !$OMP DO
    24592511             !$acc parallel present( rmask, saswst, sums_l ) create( s1 )
     2512             s1 = 0
    24602513             !$acc loop vector collapse( 2 ) reduction( +: s1 )
    24612514             DO  i = nxl, nxr
     
    24732526             !$OMP DO
    24742527             !$acc parallel present( pt, q, qswst, rmask, tswst, sums_l ) create( s1, s2 )
     2528             s1 = 0
     2529             s2 = 0
    24752530             !$acc loop vector collapse( 2 ) reduction( +: s1, s2 )
    24762531             DO  i = nxl, nxr
     
    24892544                !$OMP DO
    24902545                !$acc parallel present( pt, q, ql, qswst, rmask, tswst, sums_l ) create( s1 )
     2546                s1 = 0
    24912547                !$acc loop vector collapse( 2 ) reduction( +: s1 )
    24922548                DO  i = nxl, nxr
     
    25072563                !$OMP DO
    25082564                !$acc parallel present( qswst, rmask, sums_l ) create( s1 )
     2565                s1 = 0
    25092566                !$acc loop vector collapse( 2 ) reduction( +: s1 )
    25102567                DO  i = nxl, nxr
     
    25262583             !$OMP DO
    25272584             !$acc parallel present( qswst, rmask, sums_l ) create( s1 )
     2585             s1 = 0
    25282586             !$acc loop vector collapse( 2 ) reduction( +: s1 )
    25292587             DO  i = nxl, nxr
     
    25462604       !$acc parallel loop gang present( hom, pt, rflags_invers, rmask, sums_l, u, v, w ) create( s1, s2, s3 )
    25472605       DO  k = nzb, nzt_diff
     2606          s1 = 0
     2607          s2 = 0
     2608          s3 = 0
    25482609          !$acc loop vector collapse( 2 ) reduction( +: s1, s2, s3 )
    25492610          DO  i = nxl, nxr
     
    25802641             !$acc parallel loop gang present( hom, rflags_invers, rmask, sa, sums_l, w ) create( s1 )
    25812642             DO  k = nzb, nzt_diff
     2643                s1 = 0
    25822644                !$acc loop vector collapse( 2 ) reduction( +: s1 )
    25832645                DO  i = nxl, nxr
     
    25972659          !$acc parallel loop gang present( rflags_invers, rho, prho, rmask, sums_l ) create( s1, s2 )
    25982660          DO  k = nzb, nzt_diff
     2661             s1 = 0
     2662             s2 = 0
    25992663             !$acc loop vector collapse( 2 ) reduction( +: s1, s2 )
    26002664             DO  i = nxl, nxr
     
    26202684             !$acc parallel loop gang present( hom, rflags_invers, rmask, sums_l, vpt, w ) create( s1 )
    26212685             DO  k = nzb, nzt_diff
     2686                s1 = 0
    26222687                !$acc loop vector collapse( 2 ) reduction( +: s1 )
    26232688                DO  i = nxl, nxr
     
    26362701                !$acc parallel loop gang present( hom, q, ql, rflags_invers, rmask, sums_l, w ) create( s1 )
    26372702                DO  k = nzb, nzt_diff
     2703                   s1 = 0
    26382704                   !$acc loop vector collapse( 2 ) reduction( +: s1 )
    26392705                   DO  i = nxl, nxr
     
    26522718                   !$acc parallel loop gang present( qc, ql, rflags_invers, rmask, sums_l ) create( s1, s2 )
    26532719                   DO  k = nzb, nzt_diff
     2720                      s1 = 0
    26542721                      !$acc loop vector collapse( 2 ) reduction( +: s1, s2 )
    26552722                      DO  i = nxl, nxr
     
    26682735                      !$acc parallel loop gang present( nr, qr, prr, rflags_invers, rmask, sums_l ) create( s1, s2, s3 )
    26692736                      DO  k = nzb, nzt_diff
     2737                         s1 = 0
     2738                         s2 = 0
     2739                         s3 = 0
    26702740                         !$acc loop vector collapse( 2 ) reduction( +: s1, s2, s3 )
    26712741                         DO  i = nxl, nxr
     
    26882758                   !$acc parallel loop gang present( ql, rflags_invers, rmask, sums_l ) create( s1 )
    26892759                   DO  k = nzb, nzt_diff
     2760                      s1 = 0
    26902761                      !$acc loop vector collapse( 2 ) reduction( +: s1 )
    26912762                      DO  i = nxl, nxr
     
    27042775                !$acc parallel loop gang present( ql, rflags_invers, rmask, sums_l ) create( s1 )
    27052776                DO  k = nzb, nzt_diff
     2777                   s1 = 0
    27062778                   !$acc loop vector collapse( 2 ) reduction( +: s1 )
    27072779                   DO  i = nxl, nxr
     
    27222794                !$acc parallel loop gang present( hom, rflags_invers, rmask, sums_l, vpt, w ) create( s1 )
    27232795                DO  k = nzb, nzt_diff
     2796                   s1 = 0
    27242797                   !$acc loop vector collapse( 2 ) reduction( +: s1 )
    27252798                   DO  i = nxl, nxr
     
    27542827          !$acc parallel loop gang present( hom, q, rflags_invers, rmask, sums_l, w ) create( s1 )
    27552828          DO  k = nzb, nzt_diff
     2829             s1 = 0
    27562830             !$acc loop vector collapse( 2 ) reduction( +: s1 )
    27572831             DO  i = nxl, nxr
     
    27782852          !$acc parallel loop gang present( hom, rflags_invers, rmask, sums_l, u, v, w ) create( s1, s2 )
    27792853          DO  k = nzb, nzt_diff
     2854             s1 = 0
     2855             s2 = 0
    27802856             !$acc loop vector collapse( 2 ) reduction( +: s1, s2 )
    27812857             DO  i = nxl, nxr
     
    28092885          !$acc parallel loop gang present( hom, pt, rflags_invers, rmask, sums_l, w ) create( s1 )
    28102886          DO  k = nzb, nzt_diff
     2887             s1 = 0
    28112888             !$acc loop vector collapse( 2 ) reduction( +: s1 )
    28122889             DO  i = nxl, nxr
     
    28282905             !$acc parallel loop gang present( hom, q, rflags_invers, rmask, sums_l, w ) create( s1 )
    28292906             DO  k = nzb, nzt_diff
     2907                s1 = 0
    28302908                !$acc loop vector collapse( 2 ) reduction( +: s1 )
    28312909                DO  i = nxl, nxr
Note: See TracChangeset for help on using the changeset viewer.