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/enercin_p.F

    r630 r709  
    5858c              0.5 * V(i,  j)**2 *( alpha2 + alpha3 )
    5959
    60 
     60c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
    6161      DO 5 l = 1,llm
    6262     
    … …  
    117117     
    118118   5  CONTINUE
     119c$OMP END DO NOWAIT
    119120      RETURN
    120121      END
Note: See TracChangeset for help on using the changeset viewer.