Changeset 3860 for trunk/LMDZ.COMMON/libf/evolution/writediagpem.F90

Timestamp:

Jul 18, 2025, 6:36:32 PM (26 hours ago)

Author:

jbclement

Message:

PEM:

• Correction of "visu_evol_layering.py" to compute Lsp variations.
• Few cleanings to open files throughout the PEM.

JBC

File:

• trunk/LMDZ.COMMON/libf/evolution/writediagpem.F90 (modified) (1 diff)

trunk/LMDZ.COMMON/libf/evolution/writediagpem.F90

@@ -130 +130 @@
 !$OMP MASTER
     ! Open diagpem.def definition file if there is one:
-        open(99,file="diagpem.def",status='old',form='formatted',iostat=ierr2)
+        open(99,file="diagpem.def",status='old',form='formatted',action = 'read',iostat=ierr2)
 
         if (ierr2 == 0) then