Changeset 4672 for palm/trunk/SOURCE/flow_statistics.f90

Timestamp:

Sep 9, 2020 9:27:32 PM (4 years ago)

Author:

pavelkrc

Message:

OpenACC bugfix

File:

• palm/trunk/SOURCE/flow_statistics.f90 (modified) (2 diffs)

palm/trunk/SOURCE/flow_statistics.f90

@@ -24 +24 @@
 ! -----------------
 ! $Id$
+! OpenACC bugfix
+!
+! 4671 2020-09-09 20:27:58Z pavelkrc
 ! Implementation of downward facing USM and LSM surfaces
 !
@@ -819 +822 @@
        !$ACC PRESENT(wall_flags_total_0, rmask, ddzu, rho_air_zw, hom(:,1,1:4,sr)) &
        !$ACC PRESENT(heatflux_output_conversion, momentumflux_output_conversion) &
-       !$ACC PRESENT(surf_def_h(0:2), surf_lsm_h(0:1), surf_usm_h(0:1) &
+       !$ACC PRESENT(surf_def_h(0:2), surf_lsm_h(0:1), surf_usm_h(0:1)) &
        !$ACC PRESENT(sums_l)
        DO  i = nxl, nxr