Ignore:
Timestamp:
08/06/15 10:48:45 (9 years ago)
Author:
dubos
Message:

OpenMP fixes for DCMIP

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/trunk/src/etat0.f90

    r346 r353  
    188188 
    189189    INTEGER :: l,i,j,ij 
     190 
     191    !$OMP BARRIER 
    190192 
    191193    SELECT CASE (TRIM(etat0_type)) 
    … …  
    219221    END SELECT 
    220222 
     223    !$OMP BARRIER 
     224 
    221225    CALL compute_wind_perp_from_lonlat_compound(ulon_e, ulat_e, u) 
    222226 
Note: See TracChangeset for help on using the changeset viewer.