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

Timestamp:

Jul 18, 2025, 6:36:32 PM (30 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/orbit_param_criterion_mod.F90 (modified) (1 diff)

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

@@ -75 +75 @@
 
 ! We read the file
-open(73,file = 'obl_ecc_lsp.asc')
+open(73,file = 'obl_ecc_lsp.asc',status = 'old',action = 'read')
 last_ilask = 0
 do ilask = 1,size(yearlask,1)