Changeset 4672 for palm/trunk


Ignore:
Timestamp:
Sep 9, 2020 9:27:32 PM (4 years ago)
Author:
pavelkrc
Message:

OpenACC bugfix

File:
1 edited

Legend:

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

    r4671 r4672  
    2424! -----------------
    2525! $Id$
     26! OpenACC bugfix
     27!
     28! 4671 2020-09-09 20:27:58Z pavelkrc
    2629! Implementation of downward facing USM and LSM surfaces
    2730!
     
    819822       !$ACC PRESENT(wall_flags_total_0, rmask, ddzu, rho_air_zw, hom(:,1,1:4,sr)) &
    820823       !$ACC PRESENT(heatflux_output_conversion, momentumflux_output_conversion) &
    821        !$ACC PRESENT(surf_def_h(0:2), surf_lsm_h(0:1), surf_usm_h(0:1) &
     824       !$ACC PRESENT(surf_def_h(0:2), surf_lsm_h(0:1), surf_usm_h(0:1)) &
    822825       !$ACC PRESENT(sums_l)
    823826       DO  i = nxl, nxr
Note: See TracChangeset for help on using the changeset viewer.