Changeset 4237 for palm/trunk/SOURCE
- Timestamp:
- Sep 25, 2019 11:33:42 AM (5 years ago)
- Location:
- palm/trunk/SOURCE
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/disturb_field.f90
r4182 r4237 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Added missing OpenMP directives 28 ! 29 ! 4182 2019-08-22 15:20:23Z scharf 27 30 ! Corrected "Former revisions" section 28 31 ! … … 166 169 !-- compiler option -O3 167 170 !$ACC PARALLEL LOOP COLLAPSE(2) PRIVATE(i, j, k) PRESENT(dist1, dist2) 171 !$OMP PARALLEL DO PRIVATE(i, j, k) 168 172 DO i = nxl, nxr 169 173 DO j = nys, nyn … … 187 191 188 192 !$ACC PARALLEL LOOP COLLAPSE(2) PRIVATE(i, j, k) PRESENT(dist1, dist2) 193 !$OMP PARALLEL DO PRIVATE(i, j, k) 189 194 DO i = nxl, nxr 190 195 DO j = nys, nyn … … 219 224 !-- Random perturbation is added to the array to be disturbed. 220 225 !$ACC PARALLEL LOOP COLLAPSE(3) PRIVATE(i, j, k) PRESENT(field, dist1) 226 !$OMP PARALLEL DO PRIVATE(i, j, k) 221 227 DO i = nxlg, nxrg 222 228 DO j = nysg, nyng -
palm/trunk/SOURCE/surface_layer_fluxes_mod.f90
r4186 r4237 26 26 ! ----------------- 27 27 ! $Id$ 28 ! Added missing OpenMP directives 29 ! 30 ! 4186 2019-08-23 16:06:14Z suehring 28 31 ! - To enable limitation of Obukhov length, move it before exit-cycle construct. 29 32 ! Further, change the limit to 10E-5 in order to get rid-off unrealistic … … 597 600 ibit = MERGE( 1, 0, .NOT. downward ) 598 601 602 !$OMP PARALLEL DO PRIVATE(i, j, k, w_lfc) 599 603 !$ACC PARALLEL LOOP PRIVATE(i, j, k, w_lfc) & 600 604 !$ACC PRESENT(surf, u, v) … … 902 906 ! 903 907 !-- Calculate the Obukhov length using Newton iteration 908 !$OMP PARALLEL DO PRIVATE(i, j, z_mo) & 909 !$OMP PRIVATE(ol_old, ol_m, ol_l, ol_u, f, f_d_ol) 904 910 !$ACC PARALLEL LOOP PRIVATE(i, j, z_mo) & 905 911 !$ACC PRIVATE(ol_old, ol_m, ol_l, ol_u, f, f_d_ol) & -
palm/trunk/SOURCE/timestep.f90
r4233 r4237 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Added missing OpenMP directives 28 ! 29 ! 4233 2019-09-20 09:55:54Z knoop 27 30 ! OpenACC data update host removed 28 31 ! … … 196 199 !$ACC REDUCTION(MIN: dt_u_l, dt_v_l, dt_w_l) & 197 200 !$ACC PRESENT(u, v, w, dzu) 201 !$OMP PARALLEL DO PRIVATE(i,j,k) & 202 !$OMP REDUCTION(MIN: dt_u_l, dt_v_l, dt_w_l) 198 203 DO i = nxl, nxr 199 204 DO j = nys, nyn … … 222 227 !$ACC REDUCTION(MIN: dt_u_l) & 223 228 !$ACC PRESENT(u, v, w, dzu) 229 !$OMP PARALLEL DO PRIVATE(i,j,k) & 230 !$OMP REDUCTION(MIN: dt_u_l) 224 231 DO i = nxl, nxr 225 232 DO j = nys, nyn
Note: See TracChangeset
for help on using the changeset viewer.