Changeset 4329 for palm/trunk/SOURCE/coriolis.f90
- Timestamp:
- Dec 10, 2019 3:46:36 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/coriolis.f90
r4196 r4329 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Renamed wall_flags_0 to wall_flags_static_0 28 ! 29 ! 4196 2019-08-29 11:02:06Z gronemeier 27 30 ! Consider rotation of model domain 28 31 ! … … 76 79 77 80 USE indices, & 78 ONLY: nxl, nxlu, nxr, nyn, nys, nysv, nzb, nzt, wall_flags_ 081 ONLY: nxl, nxlu, nxr, nyn, nys, nysv, nzb, nzt, wall_flags_static_0 79 82 80 83 USE kinds … … 104 107 CASE ( 1 ) 105 108 !$ACC PARALLEL LOOP COLLAPSE(3) PRIVATE(i, j, k, flag) & 106 !$ACC PRESENT(wall_flags_ 0) &109 !$ACC PRESENT(wall_flags_static_0) & 107 110 !$ACC PRESENT(v, w, vg) & 108 111 !$ACC PRESENT(tend) … … 112 115 ! 113 116 !-- Predetermine flag to mask topography 114 flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_ 0(k,j,i), 1 ) )117 flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 1 ) ) 115 118 116 119 tend(k,j,i) = tend(k,j,i) + flag * & … … 129 132 CASE ( 2 ) 130 133 !$ACC PARALLEL LOOP COLLAPSE(3) PRIVATE(i, j, k, flag) & 131 !$ACC PRESENT(wall_flags_ 0) &134 !$ACC PRESENT(wall_flags_static_0) & 132 135 !$ACC PRESENT(u, w, ug) & 133 136 !$ACC PRESENT(tend) … … 137 140 ! 138 141 !-- Predetermine flag to mask topography 139 flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_ 0(k,j,i), 2 ) )142 flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 2 ) ) 140 143 141 144 tend(k,j,i) = tend(k,j,i) - flag * & … … 154 157 CASE ( 3 ) 155 158 !$ACC PARALLEL LOOP COLLAPSE(3) PRIVATE(i, j, k, flag) & 156 !$ACC PRESENT(wall_flags_ 0) &159 !$ACC PRESENT(wall_flags_static_0) & 157 160 !$ACC PRESENT(u, v) & 158 161 !$ACC PRESENT(tend) … … 162 165 ! 163 166 !-- Predetermine flag to mask topography 164 flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_ 0(k,j,i), 3 ) )167 flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 3 ) ) 165 168 166 169 tend(k,j,i) = tend(k,j,i) & … … 202 205 203 206 USE indices, & 204 ONLY: nzb, nzt, wall_flags_ 0207 ONLY: nzb, nzt, wall_flags_static_0 205 208 206 209 USE kinds … … 232 235 ! 233 236 !-- Predetermine flag to mask topography 234 flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_ 0(k,j,i), 1 ) )237 flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 1 ) ) 235 238 236 239 tend(k,j,i) = tend(k,j,i) + flag * & … … 249 252 ! 250 253 !-- Predetermine flag to mask topography 251 flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_ 0(k,j,i), 2 ) )254 flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 2 ) ) 252 255 253 256 tend(k,j,i) = tend(k,j,i) - flag * & … … 266 269 ! 267 270 !-- Predetermine flag to mask topography 268 flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_ 0(k,j,i), 3 ) )271 flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 3 ) ) 269 272 270 273 tend(k,j,i) = tend(k,j,i) &
Note: See TracChangeset
for help on using the changeset viewer.