Changeset 4111 for palm/trunk/SOURCE


Ignore:
Timestamp:
Jul 22, 2019 6:16:57 PM (5 years ago)
Author:
suehring
Message:

advc_flags_1/2 renamed in ACC directives

File:
1 edited

Legend:

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

    r4069 r4111  
    2525! -----------------
    2626! $Id$
     27! advc_flags_1 / advc_flags_2 renamed to advc_flags_m / advc_flags_s
     28!
     29! 4069 2019-07-01 14:05:51Z Giersch
    2730! Masked output running index mid has been introduced as a local variable to
    2831! avoid runtime error (Loop variable has been modified) in time_integration
     
    715718
    716719    USE indices,                                                                                   &
    717         ONLY:  advc_flags_1, advc_flags_2, nyn, nyng, nys, nysg, nz, nzb_max, wall_flags_0
     720        ONLY:  advc_flags_m, advc_flags_s, nyn, nyng, nys, nysg, nz, nzb_max, wall_flags_0
    718721
    719722    USE statistics,                                                                                &
     
    798801!-- Copy data from indices
    799802!$ACC DATA &
    800 !$ACC COPYIN(advc_flags_1(nzb:nzt+1,nysg:nyng,nxlg:nxrg)) &
    801 !$ACC COPYIN(advc_flags_2(nzb:nzt+1,nysg:nyng,nxlg:nxrg)) &
     803!$ACC COPYIN(advc_flags_m(nzb:nzt+1,nysg:nyng,nxlg:nxrg)) &
     804!$ACC COPYIN(advc_flags_s(nzb:nzt+1,nysg:nyng,nxlg:nxrg)) &
    802805!$ACC COPYIN(wall_flags_0(nzb:nzt+1,nysg:nyng,nxlg:nxrg))
    803806
Note: See TracChangeset for help on using the changeset viewer.