Changeset 4674

Timestamp:

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

Author:

pavelkrc

Message:

Update ACC directives for downward facing USM and LSM surfaces

Location:

palm/trunk/SOURCE

Files:

• diffusion_u.f90 (modified) (2 diffs)
• diffusion_v.f90 (modified) (2 diffs)
• turbulence_closure_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/diffusion_u.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
 ! 
@@ -119 +122 @@
        !$ACC PRESENT(ddzu, ddzw, drho_air, rho_air_zw) &
        !$ACC PRESENT(surf_def_h(0:2), surf_def_v(0:1)) &
-       !$ACC PRESENT(surf_lsm_h, surf_lsm_v(0:1)) &
-       !$ACC PRESENT(surf_usm_h, surf_usm_v(0:1)) &
+       !$ACC PRESENT(surf_lsm_h(0:1), surf_lsm_v(0:1)) &
+       !$ACC PRESENT(surf_usm_h(0:1), surf_usm_v(0:1)) &
        !$ACC PRESENT(tend)
        DO  i = nxlu, nxr

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

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