Changeset 4111 for palm

Timestamp:

Jul 22, 2019 6:16:57 PM (5 years ago)

Author:

suehring

Message:

advc_flags_1/2 renamed in ACC directives

File:

• palm/trunk/SOURCE/time_integration.f90 (modified) (3 diffs)

palm/trunk/SOURCE/time_integration.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! advc_flags_1 / advc_flags_2 renamed to advc_flags_m / advc_flags_s
+! 
+! 4069 2019-07-01 14:05:51Z Giersch
 ! Masked output running index mid has been introduced as a local variable to 
 ! avoid runtime error (Loop variable has been modified) in time_integration
@@ -715 +718 @@
 
     USE indices,                                                                                   &
-        ONLY:  advc_flags_1, advc_flags_2, nyn, nyng, nys, nysg, nz, nzb_max, wall_flags_0
+        ONLY:  advc_flags_m, advc_flags_s, nyn, nyng, nys, nysg, nz, nzb_max, wall_flags_0
 
     USE statistics,                                                                                &
@@ -798 +801 @@
 !-- Copy data from indices
 !$ACC DATA &
-!$ACC COPYIN(advc_flags_1(nzb:nzt+1,nysg:nyng,nxlg:nxrg)) &
-!$ACC COPYIN(advc_flags_2(nzb:nzt+1,nysg:nyng,nxlg:nxrg)) &
+!$ACC COPYIN(advc_flags_m(nzb:nzt+1,nysg:nyng,nxlg:nxrg)) &
+!$ACC COPYIN(advc_flags_s(nzb:nzt+1,nysg:nyng,nxlg:nxrg)) &
 !$ACC COPYIN(wall_flags_0(nzb:nzt+1,nysg:nyng,nxlg:nxrg))