Ignore:
Timestamp:
Jul 30, 2008, 5:57:45 PM (16 years ago)
Author:
Laurent Fairhead
Message:

Du nettoyage sur le parallelisme, inclusion de nouvelles interfaces pour OPA9
et ORCHIDEE YM
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/phylmd/hgardfou.F

    r972 r987  
    2323      SAVE firstcall
    2424      DATA firstcall /.TRUE./
     25c$OMP THREADPRIVATE(firstcall)
     26
    2527      IF (firstcall) THEN
    2628         PRINT*, 'hgardfou garantit la temperature dans [100,370] K'
Note: See TracChangeset for help on using the changeset viewer.