Changeset 4674 for palm/trunk


Ignore:
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:
3 edited

Legend:

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

    r4671 r4674  
    2424! -----------------
    2525! $Id$
     26! Update ACC directives for downward facing USM and LSM surfaces
     27!
     28! 4671 2020-09-09 20:27:58Z pavelkrc
    2629! Implementation of downward facing USM and LSM surfaces
    2730!
     
    119122       !$ACC PRESENT(ddzu, ddzw, drho_air, rho_air_zw) &
    120123       !$ACC PRESENT(surf_def_h(0:2), surf_def_v(0:1)) &
    121        !$ACC PRESENT(surf_lsm_h, surf_lsm_v(0:1)) &
    122        !$ACC PRESENT(surf_usm_h, surf_usm_v(0:1)) &
     124       !$ACC PRESENT(surf_lsm_h(0:1), surf_lsm_v(0:1)) &
     125       !$ACC PRESENT(surf_usm_h(0:1), surf_usm_v(0:1)) &
    123126       !$ACC PRESENT(tend)
    124127       DO  i = nxlu, nxr
  • palm/trunk/SOURCE/diffusion_v.f90

    r4671 r4674  
    2424! -----------------
    2525! $Id$
     26! Update ACC directives for downward facing USM and LSM surfaces
     27!
     28! 4671 2020-09-09 20:27:58Z pavelkrc
    2629! Implementation of downward facing USM and LSM surfaces
    2730!
     
    115118       !$ACC PRESENT(ddzu, ddzw, drho_air, rho_air_zw) &
    116119       !$ACC PRESENT(surf_def_h(0:2), surf_def_v(2:3)) &
    117        !$ACC PRESENT(surf_lsm_h, surf_lsm_v(2:3)) &
    118        !$ACC PRESENT(surf_usm_h, surf_usm_v(0:3)) &
     120       !$ACC PRESENT(surf_lsm_h(0:1), surf_lsm_v(2:3)) &
     121       !$ACC PRESENT(surf_usm_h(0:1), surf_usm_v(2:3)) &
    119122       !$ACC PRESENT(tend)
    120123       DO  i = nxl, nxr
  • palm/trunk/SOURCE/turbulence_closure_mod.f90

    r4671 r4674  
    2525! -----------------
    2626! $Id$
     27! Update ACC directives for downward facing USM and LSM surfaces
     28!
     29! 4671 2020-09-09 20:27:58Z pavelkrc
    2730! Implementation of downward facing USM and LSM surfaces
    2831!
     
    28612864    !$ACC PRESENT(tend) &
    28622865    !$ACC PRESENT(surf_def_h(0:1), surf_def_v(0:3)) &
    2863     !$ACC PRESENT(surf_lsm_h, surf_lsm_v(0:3)) &
    2864     !$ACC PRESENT(surf_usm_h, surf_usm_v(0:3))
     2866    !$ACC PRESENT(surf_lsm_h(0:1), surf_lsm_v(0:3)) &
     2867    !$ACC PRESENT(surf_usm_h(0:1), surf_usm_v(0:3))
    28652868    DO  i = nxl, nxr
    28662869       DO  j = nys, nyn
     
    31843187             !$ACC PRESENT(tend) &
    31853188             !$ACC PRESENT(surf_def_h(0:2)) &
    3186              !$ACC PRESENT(surf_lsm_h) &
    3187              !$ACC PRESENT(surf_usm_h)
     3189             !$ACC PRESENT(surf_lsm_h(0:1)) &
     3190             !$ACC PRESENT(surf_usm_h(0:1))
    31883191             DO  i = nxl, nxr
    31893192                DO  j = nys, nyn
Note: See TracChangeset for help on using the changeset viewer.