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_vert_NH.k90

    r563 r578  
    4848      END DO 
    4949   END DO 
    50    ! We need a barrier here because previously computed W_etadot is needed at 'CELL' and 'DOWN(CELL)' 
     50   ! We need a barrier here because we compute W_etadot above and do a vertical difference below 
    5151   !$OMP BARRIER 
    5252   IF (ll_begin==1) THEN 
Note: See TracChangeset for help on using the changeset viewer.