Ignore:
Timestamp:
May 7, 2010, 12:50:28 PM (15 years ago)
Author:
Laurent Fairhead
Message:

Correction of mixed MPI/OpenMP bug

Correction bug mixte MPI/OpenMP

Location:
LMDZ4/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/phylmd/planete.h

    r1279 r1387  
    1111
    1212c-----------------------------------------------------------------------
     13!$OMP THREADPRIVATE(/planet/)

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

    r1279 r1387  
    6161      REAL :: pyear_day,pperi_day
    6262      REAL :: jD_eq, jD_peri
     63      LOGICAL,SAVE :: first=.TRUE.
     64c$OMP THREADPRIVATE(first)
    6365
    6466c-----------------------------------------------------------------------
    … …  
    6769
    6870c   Initialisation eventuelle:
    69       if(.not.unitastr.gt.1.e-4) then
     71      if(first) then
    7072        call ioget_calendar(pyear_day)
    7173        call ymds2ju(2000, 3, 21, 0., jD_eq)
    … …  
    7678c         call iniorbit(249.22,206.66,669.,485.,25.2)
    7779         call iniorbit(152.59,146.61,pyear_day,pperi_day,R_incl)
     80         first=.FALSE.
    7881      endif
    7982
Note: See TracChangeset for help on using the changeset viewer.