Changeset 4237 for palm/trunk/SOURCE/surface_layer_fluxes_mod.f90
- Timestamp:
- Sep 25, 2019 11:33:42 AM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
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) &
Note: See TracChangeset
for help on using the changeset viewer.