Changeset 6202

Timestamp:

Apr 23, 2026, 8:18:36 PM (11 days ago)

Author:

lguez

Message:

Protect variables

File:

• LMDZ6/trunk/libf/phylmd/conf_phys_m.f90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/conf_phys_m.f90

@@ -76 +76 @@
   !=====================================================================
   ! dans alealp_th, thermcell_alp, physiq_mod, conf_phys
-  INTEGER :: iflag_trig_bl, iflag_clos_bl, iflag_strig
-  INTEGER :: tau_trig_shallow, tau_trig_deep
-  REAL :: s_trig, h_trig
+  INTEGER, SAVE, protected :: iflag_trig_bl, iflag_clos_bl, iflag_strig
+  INTEGER, SAVE, protected :: tau_trig_shallow, tau_trig_deep
+  REAL, SAVE, protected :: s_trig, h_trig
   ! thermcell_alp et convection ...
-  INTEGER :: iflag_coupl, iflag_clos, iflag_wake
+  INTEGER, SAVE, protected :: iflag_coupl, iflag_clos, iflag_wake
   ! thermcell_alp
-  REAL :: alp_bl_k
+  REAL, SAVE, protected :: alp_bl_k
   !$OMP THREADPRIVATE(iflag_trig_bl, iflag_clos_bl, tau_trig_shallow, tau_trig_deep, iflag_strig)
   !$OMP THREADPRIVATE(alp_bl_k, s_trig, h_trig, iflag_coupl, iflag_clos, iflag_wake)