Changeset 4674 for palm/trunk/SOURCE/turbulence_closure_mod.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/turbulence_closure_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/turbulence_closure_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $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
 !
@@ -2861 +2864 @@
     !$ACC PRESENT(tend) &
     !$ACC PRESENT(surf_def_h(0:1), surf_def_v(0:3)) &
-    !$ACC PRESENT(surf_lsm_h, surf_lsm_v(0:3)) &
-    !$ACC PRESENT(surf_usm_h, surf_usm_v(0:3))
+    !$ACC PRESENT(surf_lsm_h(0:1), surf_lsm_v(0:3)) &
+    !$ACC PRESENT(surf_usm_h(0:1), surf_usm_v(0:3))
     DO  i = nxl, nxr
        DO  j = nys, nyn
@@ -3184 +3187 @@
              !$ACC PRESENT(tend) &
              !$ACC PRESENT(surf_def_h(0:2)) &
-             !$ACC PRESENT(surf_lsm_h) &
-             !$ACC PRESENT(surf_usm_h)
+             !$ACC PRESENT(surf_lsm_h(0:1)) &
+             !$ACC PRESENT(surf_usm_h(0:1))
              DO  i = nxl, nxr
                 DO  j = nys, nyn