Ignore:
Timestamp:
Jan 7, 2019 8:28:54 PM (2 years ago)
Author:
knoop
Message:

OpenACC: flow_statistics partly ported to GPU

File:
1 edited

Legend:

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

    r3655 r3658  
    211211
    212212    CALL cpu_log( log_point(12), 'calculate_timestep', 'start' )
     213
     214    !$ACC UPDATE &
     215    !$ACC HOST(u(nzb:nzt+1,nysg:nyng,nxlg:nxrg)) &
     216    !$ACC HOST(v(nzb:nzt+1,nysg:nyng,nxlg:nxrg)) &
     217    !$ACC HOST(w(nzb:nzt+1,nysg:nyng,nxlg:nxrg)) &
     218    !$ACC HOST(kh(nzb:nzt+1,nysg:nyng,nxlg:nxrg)) &
     219    !$ACC HOST(km(nzb:nzt+1,nysg:nyng,nxlg:nxrg))
     220
    213221!
    214222!--    Save former time step as reference
Note: See TracChangeset for help on using the changeset viewer.