Ignore:
Timestamp:
Oct 29, 2021, 1:00:06 PM (3 years ago)
Author:
romain.vande
Message:

First stage of implementing Open_MP in the physic.
So far it can initialyse physic and run with all routines at .FALSE.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/nonoro_gwd_ran_mod.F90

    r2400 r2578  
    77REAL,ALLOCATABLE,SAVE :: east_gwstress(:,:) ! Profile of eastward stress
    88REAL,ALLOCATABLE,SAVE :: west_gwstress(:,:) ! Profile of westward stress
     9
     10!$OMP THREADPRIVATE(du_nonoro_gwd,dv_nonoro_gwd,east_gwstress,west_gwstress)
    911
    1012CONTAINS
Note: See TracChangeset for help on using the changeset viewer.