Changeset 4469


Ignore:
Timestamp:
Mar 23, 2020 2:31:00 PM (13 months ago)
Author:
suehring
Message:

fix mistakenly committed version of advec_ws

File:
1 edited

Legend:

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

    r4468 r4469  
    2525! -----------------
    2626! $Id$
     27! fix mistakenly committed version
     28!
     29! 4468 2020-03-23 13:49:05Z suehring
    2730! - bugfix for last commit in openacc branch
    2831! - some loop bounds revised (only to be consistent with cache version)
     
    37603763       REAL(wp), DIMENSION(nzb:nzt+1)         ::  flux_r     !< discretized 6th-order flux at rightward-side of the grid box
    37613764       REAL(wp), DIMENSION(nzb:nzt+1)         ::  flux_t     !< discretized 6th-order flux at top of the grid box
    3762 #ifndef _OPENACC
    3763        REAL(wp), DIMENSION(nzb+1:nzt)         ::  swap_diss_y_local !< discretized artificial dissipation at southward-side
    3764        REAL(wp), DIMENSION(nzb+1:nzt)         ::  swap_flux_y_local !< discretized 6th-order flux at northward-side
    3765 #endif
    3766 #ifdef _OPENACC
     3765
    37673766       REAL(wp), DIMENSION(nzb+1:nzt)         ::  diss_l            !< discretized artificial dissipation at leftward-side
    37683767       REAL(wp), DIMENSION(nzb+1:nzt)         ::  diss_s            !< discretized artificial dissipation at southward-side
    37693768       REAL(wp), DIMENSION(nzb+1:nzt)         ::  flux_l            !< discretized 6th-order flux at leftward-side
    37703769       REAL(wp), DIMENSION(nzb+1:nzt)         ::  flux_s            !< discretized 6th-order flux at southward-side
    3771 #endif
     3770#ifndef _OPENACC
     3771       REAL(wp), DIMENSION(nzb+1:nzt)         ::  swap_diss_y_local !< discretized artificial dissipation at southward-side
     3772       REAL(wp), DIMENSION(nzb+1:nzt)         ::  swap_flux_y_local !< discretized 6th-order flux at northward-side
    37723773
    37733774       REAL(wp), DIMENSION(nzb+1:nzt,nys:nyn) ::  swap_diss_x_local !< discretized artificial dissipation at leftward-side
    37743775       REAL(wp), DIMENSION(nzb+1:nzt,nys:nyn) ::  swap_flux_x_local !< discretized 6th-order flux at leftward-side
     3776#endif
    37753777
    37763778       CALL cpu_log( log_point_s(49), 'advec_s_ws', 'start' )
Note: See TracChangeset for help on using the changeset viewer.