Ignore:
Timestamp:
Jan 18, 2022, 4:28:31 PM (3 years ago)
Author:
romain.vande
Message:

LMDZ_MARS RV : Open_MP;
Put all the "save" variables as "!$OMP THREADPRIVATE" in phymars.
The code can now be tested, see README for more info

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/newsedim_mod.F

    r2448 r2616  
    5252      LOGICAL,SAVE :: firstcall=.true.
    5353
     54!$OMP THREADPRIVATE(firstcall)
     55
    5456c    Traceurs :
    5557c    ~~~~~~~~
    … …  
    6971c     local and saved variable
    7072      real,save :: a,b
     73
     74!$OMP THREADPRIVATE(a,b)
    7175
    7276
Note: See TracChangeset for help on using the changeset viewer.