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/aeronomars/calchim_mod.F90

    r2563 r2578  
    66  REAL,SAVE,ALLOCATABLE :: zdqchim(:,:,:) ! Tendancy on pq due to photochemistry
    77  REAL,SAVE,ALLOCATABLE :: zdqschim(:,:) ! Tendancy on qsurf due to photochemistry
     8
     9!$OMP THREADPRIVATE(ichemistry,zdqchim,zdqschim)
    810
    911  CONTAINS
Note: See TracChangeset for help on using the changeset viewer.