Ignore:
Timestamp:
Sep 10, 2020 10:36:55 AM (12 months ago)
Author:
pavelkrc
Message:

Update ACC directives for downward facing USM and LSM surfaces

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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
Note: See TracChangeset for help on using the changeset viewer.