Changeset 3969 for trunk/LMDZ.MARS/libf/phymars/writediagfi.F

Timestamp:

Nov 21, 2025, 11:21:14 AM (10 days ago)

Author:

jmauxion

Message:

Mars PCM:
Bug fix: threadsave statement missing on variable save "isample". Could fail
when writting diagfi.
JM

File:

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

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

@@ -75 +75 @@
 
       integer, save :: isample
+!$OMP THREADPRIVATE(isample)
       integer ierr,ierr2
       integer i,j,l, ig0