Changeset 1859


Ignore:
Timestamp:
Sep 4, 2013, 2:30:10 PM (11 years ago)
Author:
yann meurdesoif
Message:

bug fix : forgetted directive !$OMP MASTER for read a getin

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/dyn3dmem/parallel_lmdz.F90

    r1858 r1859  
    226226        omp_size=OMP_GET_NUM_THREADS()
    227227!$OMP END MASTER
     228!$OMP BARRIER
    228229        omp_rank=OMP_GET_THREAD_NUM() 
    229230
    … …  
    234235!Config         distribue a chaque tache lors de l'entree dans une
    235236!Config         boucle parallelisee
    236  
     237
     238!$OMP MASTER
    237239      omp_chunk=(llm+1)/omp_size
    238240      IF (MOD(llm+1,omp_size)/=0) omp_chunk=omp_chunk+1
    239241      CALL getin('omp_chunk',omp_chunk)
    240        
     242!$OMP END MASTER
     243!$OMP BARRIER       
    241244#else   
    242245        omp_size=1
Note: See TracChangeset for help on using the changeset viewer.