Changeset 722


Ignore:
Timestamp:
08/09/18 13:28:53 (6 years ago)
Author:
dubos
Message:

devel : OpenMP bugfix - tested with DCMIP31 NH

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/dynamics/caldyn_kernels_base.F90

    r628 r722  
    188188    CALL trace_start("compute_caldyn_vert") 
    189189 
     190!$OMP BARRIER 
     191 
    190192    CALL distrib_level(ij_begin,ij_end, ij_omp_begin,ij_omp_end) 
    191193 
    … …  
    199201    ELSE 
    200202 
    201     !$OMP BARRIER    
    202203!!! cumulate mass flux convergence from top to bottom 
    203204    DO  l = llm-1, 1, -1 
Note: See TracChangeset for help on using the changeset viewer.