Ignore:
Timestamp:
Jul 19, 2013, 4:11:14 PM (11 years ago)
Author:
yann meurdesoif
Message:

Correction of a misprint in transfert routine.
Maybe solve some performance problem with dyn3dmem

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r1632 r1803  
    7777    ENDIF
    7878     
     79!$OMP MASTER     
    7980     jj_nb_gather(:)=0
    8081     jj_nb_gather(0)=jjp1
    8182     
    8283     CALL create_distrib(jj_nb_gather,distrib_gather)
    83 
     84!$OMP END MASTER
     85!$OMP BARRIER
    8486  end subroutine init_mod_hallo
    8587
    … …  
    787789!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)           
    788790        DO l=1,ll
    789           FieldR(ijb:ije,:)=FieldS(ijb:ije,:)             
     791          FieldR(ijb:ije,l)=FieldS(ijb:ije,l)             
    790792        ENDDO
    791793!$OMP END DO NOWAIT
Note: See TracChangeset for help on using the changeset viewer.