Changeset 2584 for trunk/LMDZ.MARS/libf/phymars/nlthermeq.F

Timestamp:

Nov 16, 2021, 3:23:31 PM (3 years ago)

Author:

romain.vande

Message:

Second stage of implementation of Open_MP in the physic.
Run with callrad=.true.

File:

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

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

@@ -22 +22 @@
       integer igpmax, ismax
       logical firstcall
+
+!$OMP THREADPRIVATE(firstcall,igpmax)
+
       data firstcall /.true./
       save firstcall, igpmax