Changeset 2586 for trunk/LMDZ.MARS/libf/phymars/pbl_parameters.F

Timestamp:

Nov 18, 2021, 11:39:59 AM (3 years ago)

Author:

romain.vande

Message:

LMDZ_MARS Implementation of Open_MP in the physic.
Works with radiative transfert

File:

• trunk/LMDZ.MARS/libf/phymars/pbl_parameters.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/pbl_parameters.F

@@ -77 +77 @@
       REAL karman,nu
       DATA karman,nu/.41,0.001/
+
+!$OMP THREADPRIVATE(karman,nu)
+
       SAVE karman,nu