Changeset 6105 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90

Timestamp:

Mar 13, 2026, 11:02:03 PM (3 weeks ago)

Author:

fhourdin

Message:

Supression d'arguments dans conf_phys_m

File:

• LMDZ6/trunk/libf/phylmd/physiq_mod.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -56 +56 @@
     USE assert_m, only: assert
     USE change_srf_frac_mod
-    USE conf_phys_m, only: conf_phys
+
+    USE conf_phys_m, ONLY : conf_phys
+    ! TBD 2026/03/13 : les variables ci dessous ont été passées en module.
+    !                  elles foivent disparaitre de physiq_mod.F90
+    USE conf_phys_m, ONLY : ok_journe, ok_mensuel, ok_instan, ok_hf, ok_LES
+
     USE carbon_cycle_mod, ONLY : infocfields_init, RCO2_glo, carbon_cycle_rad   ! PC
 
@@ -524 +529 @@
     !cc      PARAMETER (soil_model=.FALSE.)
     !======================================================================
-    LOGICAL ok_journe ! sortir le fichier journalier
-    SAVE ok_journe
-    !$OMP THREADPRIVATE(ok_journe)
-    !
-    LOGICAL ok_mensuel ! sortir le fichier mensuel
-    SAVE ok_mensuel
-    !$OMP THREADPRIVATE(ok_mensuel)
-    !
-    LOGICAL ok_instan ! sortir le fichier instantane
-    SAVE ok_instan
-    !$OMP THREADPRIVATE(ok_instan)
-    !
-    LOGICAL ok_LES ! sortir le fichier LES
-    SAVE ok_LES
-    !$OMP THREADPRIVATE(ok_LES)
-    !
-    LOGICAL callstats ! sortir le fichier stats
-    SAVE callstats
-    !$OMP THREADPRIVATE(callstats)
+    !
+    !
     !
     LOGICAL ok_region ! sortir le fichier regional
@@ -618 +606 @@
     CHARACTER*3 region
     PARAMETER(region='3d')
-    LOGICAL ok_hf
-    !
-    SAVE ok_hf
-    !$OMP THREADPRIVATE(ok_hf)
 
     INTEGER, PARAMETER :: longcles=20
@@ -1300 +1284 @@
        !
        !     appel a la lecture du run.def physique
-       CALL conf_phys(ok_journe, ok_mensuel, &
-            ok_instan, ok_hf, &
-            ok_LES, &
-            callstats, &
-            solarlong0, &
+       CALL conf_phys( solarlong0, &
             fact_cldcon,facttemps,ok_newmicro,iflag_radia, &
             iflag_cld_th, &