Ignore:
Timestamp:
Jun 4, 2007, 4:13:10 PM (17 years ago)
Author:
Laurent Fairhead
Message:

Merge entre la version V3_conv et le HEAD
YM, JG, LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/dyn3dpar/flumass_p.F

    r630 r764  
    3737      REAL       SSUM
    3838     
    39      
     39c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)   
    4040      DO  5 l = 1,llm
    4141
    … …  
    6161
    6262   5  CONTINUE
    63 
     63c$OMP END DO NOWAIT
    6464c    ................................................................
    6565c     calcul de la composante du flux de masse en x aux poles .......
    … …  
    8787        saireun= SSUM( iim, aireu(   1     ), 1 )
    8888
     89c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)   
    8990        DO l = 1,llm
    9091 
    … …  
    111112       
    112113        ENDDO
    113      
     114c$OMP END DO NOWAIT             
     115
    114116      ENDIF
    115117
    … …  
    119121        saires = SSUM( iim,  aire( ip1jm+1 ), 1 )
    120122        saireus= SSUM( iim, aireu( ip1jm+1 ), 1 )
    121        
     123
     124c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)   
    122125        DO  l = 1,llm
    123126 
    … …  
    143146       
    144147        ENDDO
    145          
     148c$OMP END DO NOWAIT         
    146149      ENDIF
    147150     
Note: See TracChangeset for help on using the changeset viewer.