Ignore:
Timestamp:
Sep 25, 2019 11:33:42 AM (4 years ago)
Author:
knoop
Message:

Added missing OpenMP directives within "disturb_field", "surface_layer_fluxes" and "timestep"

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/surface_layer_fluxes_mod.f90

    r4186 r4237  
    2626! -----------------
    2727! $Id$
     28! Added missing OpenMP directives
     29!
     30! 4186 2019-08-23 16:06:14Z suehring
    2831! - To enable limitation of Obukhov length, move it before exit-cycle construct.
    2932!   Further, change the limit to 10E-5 in order to get rid-off unrealistic
     
    597600       ibit = MERGE( 1, 0, .NOT. downward )
    598601
     602       !$OMP PARALLEL DO PRIVATE(i, j, k, w_lfc)
    599603       !$ACC PARALLEL LOOP PRIVATE(i, j, k, w_lfc) &
    600604       !$ACC PRESENT(surf, u, v)
     
    902906!
    903907!--    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)
    904910       !$ACC PARALLEL LOOP PRIVATE(i, j, z_mo) &
    905911       !$ACC PRIVATE(ol_old, ol_m, ol_l, ol_u, f, f_d_ol) &
Note: See TracChangeset for help on using the changeset viewer.