Changeset 1804 for LMDZ5/trunk


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

Fix synchronisation problem with openmp.

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/dyn3dmem/caladvtrac_loc.F

    r1673 r1804  
    122122c     1. calcul de w
    123123c     2. groupement des mailles pres du pole.
    124         pbarvg(:,:)=-1
    125         pbarvg_adv(:,:)=-2
     124
    126125        CALL groupe_loc( massem, pbaruc,pbarvc, pbarug,pbarvg,wg )
    127         flxw(ijb:ije,1:llm)=wg(ijb:ije,1:llm)/REAL(iapp_tracvl)
     126
     127c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)     
     128      DO l=1,llm
     129        flxw(ijb:ije,l)=wg(ijb:ije,l)/REAL(iapp_tracvl)
     130      ENDDO
     131c$OMP ENDDO NOWAIT
    128132
    129133#ifdef DEBUG_IO   
Note: See TracChangeset for help on using the changeset viewer.