Changeset 4674 for palm/trunk/SOURCE/diffusion_v.f90

Timestamp:

Sep 10, 2020 10:36:55 AM (4 years ago)

Author:

pavelkrc

Message:

Update ACC directives for downward facing USM and LSM surfaces

File:

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

palm/trunk/SOURCE/diffusion_v.f90

@@ -24 +24 @@
 ! -----------------
 ! $Id$
+! Update ACC directives for downward facing USM and LSM surfaces
+!
+! 4671 2020-09-09 20:27:58Z pavelkrc
 ! Implementation of downward facing USM and LSM surfaces
 ! 
@@ -115 +118 @@
        !$ACC PRESENT(ddzu, ddzw, drho_air, rho_air_zw) &
        !$ACC PRESENT(surf_def_h(0:2), surf_def_v(2:3)) &
-       !$ACC PRESENT(surf_lsm_h, surf_lsm_v(2:3)) &
-       !$ACC PRESENT(surf_usm_h, surf_usm_v(0:3)) &
+       !$ACC PRESENT(surf_lsm_h(0:1), surf_lsm_v(2:3)) &
+       !$ACC PRESENT(surf_usm_h(0:1), surf_usm_v(2:3)) &
        !$ACC PRESENT(tend)
        DO  i = nxl, nxr