Changeset 4111
- Timestamp:
- Jul 22, 2019 6:16:57 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/time_integration.f90
r4069 r4111 25 25 ! ----------------- 26 26 ! $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 27 30 ! Masked output running index mid has been introduced as a local variable to 28 31 ! avoid runtime error (Loop variable has been modified) in time_integration … … 715 718 716 719 USE indices, & 717 ONLY: advc_flags_ 1, advc_flags_2, nyn, nyng, nys, nysg, nz, nzb_max, wall_flags_0720 ONLY: advc_flags_m, advc_flags_s, nyn, nyng, nys, nysg, nz, nzb_max, wall_flags_0 718 721 719 722 USE statistics, & … … 798 801 !-- Copy data from indices 799 802 !$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)) & 802 805 !$ACC COPYIN(wall_flags_0(nzb:nzt+1,nysg:nyng,nxlg:nxrg)) 803 806
Note: See TracChangeset
for help on using the changeset viewer.