Ignore:
Timestamp:
Apr 1, 2019 4:35:16 PM (2 years ago)
Author:
knoop
Message:

Bugfix: added proper OpenACC support to disturb_field

File:
1 edited

Legend:

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

    r3655 r3849  
    235235
    236236    CALL cpu_log( log_point(8), 'pres', 'start' )
    237 
    238 !$ACC DATA COPYOUT(d, tend) &
    239 !$ACC COPY(u, v, w, p) &
    240 !$ACC COPYIN(rho_air, rho_air_zw, ddzu, ddzw, wall_flags_0)
    241 
    242 !$ACC DATA &
    243 !$ACC COPYIN(bc_h(0:1)) &
    244 !$ACC COPYIN(bc_h(0)%i(1:bc_h(0)%ns)) &
    245 !$ACC COPYIN(bc_h(0)%j(1:bc_h(0)%ns)) &
    246 !$ACC COPYIN(bc_h(0)%k(1:bc_h(0)%ns)) &
    247 !$ACC COPYIN(bc_h(1)%i(1:bc_h(1)%ns)) &
    248 !$ACC COPYIN(bc_h(1)%j(1:bc_h(1)%ns)) &
    249 !$ACC COPYIN(bc_h(1)%k(1:bc_h(1)%ns))
    250 
    251237
    252238!
     
    983969    CALL cpu_log( log_point(8), 'pres', 'stop' )
    984970
    985 !$ACC END DATA
    986 !$ACC END DATA
    987 
    988971 END SUBROUTINE pres
Note: See TracChangeset for help on using the changeset viewer.