Ignore:
Timestamp:
Sep 20, 2006, 12:12:39 PM (18 years ago)
Author:
Laurent Fairhead
Message:

Nouvelles versions de la dynamique YM
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/V3_test/libf/dyn3dpar/diverg_p.F

    r630 r709  
    4646      if(pole_sud)  ije=ij_end-iip1
    4747     
     48c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)     
    4849      DO 10 l = 1,klevel
    4950c
    … …  
    8889
    8990  10  CONTINUE
     91c$OMP END DO NOWAIT
    9092c
    9193
    … …  
    9395     
    9496c
     97c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
    9598        DO l = 1, klevel
    9699           DO ij = ijb,ije
    … …  
    98101          ENDDO
    99102        ENDDO
     103c$OMP END DO NOWAIT
    100104c
    101105       RETURN
Note: See TracChangeset for help on using the changeset viewer.