Ignore:
Timestamp:
Jan 10, 2020 2:00:44 PM (4 years ago)
Author:
raasch
Message:

bugfixes for previous commit: unused variables removed, Temperton-fft usage on GPU, openacc porting of vector version of Obukhov length calculation, collective read switched off on NEC to avoid hanging; some vector directives added in prognostic equations to force vectorization on Intel19 compiler, configuration files for NEC Aurora added

File:
1 edited

Legend:

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

    r4360 r4370  
    2525! -----------------
    2626! $Id$
     27! vector directives added to force vectorization on Intel19 compiler
     28!
     29! 4360 2020-01-07 11:25:50Z suehring
    2730! Introduction of wall_flags_total_0, which currently sets bits based on static
    2831! topography information used in wall_flags_static_0
     
    936939    DO  i = nxlu, nxr
    937940       DO  j = nys, nyn
     941          !following directive is required to vectorize on Intel19
     942          !DIR$ IVDEP
    938943          DO  k = nzb+1, nzt
    939944             u_p(k,j,i) = u(k,j,i) + ( dt_3d * ( tsc(2) * tend(k,j,i) +          &
     
    10391044    DO  i = nxl, nxr
    10401045       DO  j = nysv, nyn
     1046          !following directive is required to vectorize on Intel19
     1047          !DIR$ IVDEP
    10411048          DO  k = nzb+1, nzt
    10421049             v_p(k,j,i) = v(k,j,i) + ( dt_3d * ( tsc(2) * tend(k,j,i) +        &
     
    11381145    DO  i = nxl, nxr
    11391146       DO  j = nys, nyn
     1147          !following directive is required to vectorize on Intel19
     1148          !DIR$ IVDEP
    11401149          DO  k = nzb+1, nzt-1
    11411150             w_p(k,j,i) = w(k,j,i) + ( dt_3d * ( tsc(2) * tend(k,j,i) +        &
     
    12771286       DO  i = nxl, nxr
    12781287          DO  j = nys, nyn
     1288             !following directive is required to vectorize on Intel19
     1289             !DIR$ IVDEP
    12791290             DO  k = nzb+1, nzt
    12801291                pt_p(k,j,i) = pt(k,j,i) + ( dt_3d * ( sbt * tend(k,j,i) +      &
     
    14001411       DO  i = nxl, nxr
    14011412          DO  j = nys, nyn
     1413             !following directive is required to vectorize on Intel19
     1414             !DIR$ IVDEP
    14021415             DO  k = nzb+1, nzt
    14031416                q_p(k,j,i) = q(k,j,i) + ( dt_3d * ( sbt * tend(k,j,i) +        &
     
    15201533       DO  i = nxl, nxr
    15211534          DO  j = nys, nyn
     1535             !following directive is required to vectorize on Intel19
     1536             !DIR$ IVDEP
    15221537             DO  k = nzb+1, nzt
    15231538                s_p(k,j,i) = s(k,j,i) + ( dt_3d * ( sbt * tend(k,j,i) +        &
Note: See TracChangeset for help on using the changeset viewer.