Ignore:
Timestamp:
10/13/17 13:59:36 (7 years ago)
Author:
dubos
Message:

devel : OpenMP fixes for NH kernels

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/kernels/caldyn_slow_NH.k90

    r563 r578  
    145145      END DO 
    146146   END DO 
     147   ! We need a barrier here because we compute gradPhi2, F_el and w_il above and do a vertical average below 
     148   !$OMP BARRIER 
    147149   DO l = ll_begin, ll_end 
    148150      !DIR$ SIMD 
Note: See TracChangeset for help on using the changeset viewer.