Changeset 6106 for LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

Timestamp:

Mar 14, 2026, 3:54:10 PM (4 weeks ago)

Author:

fhourdin

Message:

Elimination arguments conf_phys (sauf read_climoz)

File:

• LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90 (modified) (7 diffs)

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -30 +30 @@
     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 conf_phys_m, ONLY : ok_volcan, flag_volc_surfstrat, iflag_radia, facttemps, fact_cldcon, ok_newmicro, iflag_cld_th
+    USE conf_phys_m , ONLY : ok_ade, ok_aie, ok_alw, ok_cdnc, bl95_b0, bl95_b1
+    USE conf_phys_m , ONLY : aerosol_couple
+    USE conf_phys_m , ONLY : chemistry_couple
+    USE conf_phys_m , ONLY : flag_aerosol
+    USE conf_phys_m , ONLY : flag_bc_internal_mixture
+    USE conf_phys_m , ONLY : solarlong0,alp_offset,flag_aer_feedback,flag_aerosol_strat
+
+
+
+
 
     USE carbon_cycle_mod, ONLY : infocfields_init, RCO2_glo, carbon_cycle_rad   ! PC
@@ -540 +551 @@
 
     !======================================================================
-    LOGICAL, SAVE :: ok_volcan ! pour activer les diagnostics volcaniques
-    !$OMP THREADPRIVATE(ok_volcan)
-    INTEGER, SAVE :: flag_volc_surfstrat ! pour imposer le cool/heat rate à la surf/strato
-    !$OMP THREADPRIVATE(flag_volc_surfstrat)
     LOGICAL ok_cvl  ! pour activer le nouveau driver pour convection KE
     PARAMETER (ok_cvl=.TRUE.)
     LOGICAL ok_gust ! pour activer l'effet des gust sur flux surface
     PARAMETER (ok_gust=.FALSE.)
-    INTEGER, SAVE :: iflag_radia     ! active ou non le rayonnement (MPL)
-    !$OMP THREADPRIVATE(iflag_radia)
     !======================================================================
     LOGICAL check ! Verifier la conservation du modele en eau
@@ -655 +660 @@
     !$OMP THREADPRIVATE(abortphy)
     !
-    REAL,SAVE ::  solarlong0
-    !$OMP THREADPRIVATE(solarlong0)
-
     !      REAL,allocatable,save :: run_off_lic_0(:)
     ! !$OMP THREADPRIVATE(run_off_lic_0)
@@ -764 +766 @@
     REAL,SAVE :: oliqmax=999.,oicemax=999.
     !$OMP THREADPRIVATE(oliqmax,oicemax)
-    REAL, SAVE :: alp_offset
-    !$OMP THREADPRIVATE(alp_offset)
     REAL, SAVE :: dtcon_multistep_max=1.e6
     !$OMP THREADPRIVATE(dtcon_multistep_max)
@@ -1065 +1065 @@
     !
 
-    ! Parametres lies au nouveau schema de nuages (SB, PDF)
-    REAL, SAVE :: facttemps, fact_cldcon
-    !$OMP THREADPRIVATE(facttemps,fact_cldcon)
-    LOGICAL, SAVE :: ok_newmicro
-    !$OMP THREADPRIVATE(ok_newmicro)
-
-    INTEGER, SAVE :: iflag_cld_th
-    !$OMP THREADPRIVATE(iflag_cld_th)
     LOGICAL ptconvth(klon,klev)
     REAL picefra(klon,klev)
@@ -1140 +1132 @@
     REAL, DIMENSION(klon,klev,naero_tot) :: m_allaer
 
-    ! Parameters
-    LOGICAL ok_ade, ok_aie    ! Apply aerosol (in)direct effects or not
-    LOGICAL ok_alw            ! Apply aerosol LW effect or not
-    LOGICAL ok_cdnc ! ok cloud droplet number concentration (O. Boucher 01-2013)
-    REAL bl95_b0, bl95_b1   ! Parameter in Boucher and Lohmann (1995)
-    SAVE ok_ade, ok_aie, ok_alw, ok_cdnc, bl95_b0, bl95_b1
-    !$OMP THREADPRIVATE(ok_ade, ok_aie, ok_alw, ok_cdnc, bl95_b0, bl95_b1)
-    LOGICAL, SAVE :: aerosol_couple ! true  : calcul des aerosols dans INCA
-    ! false : lecture des aerosol dans un fichier
-    !$OMP THREADPRIVATE(aerosol_couple)
-    LOGICAL, SAVE :: chemistry_couple ! true  : use INCA chemistry O3
-    ! false : use offline chemistry O3
-    !$OMP THREADPRIVATE(chemistry_couple)
-    INTEGER, SAVE :: flag_aerosol
-    !$OMP THREADPRIVATE(flag_aerosol)
-    LOGICAL, SAVE :: flag_bc_internal_mixture
-    !$OMP THREADPRIVATE(flag_bc_internal_mixture)
-    !
-    !--STRAT AEROSOL
-    INTEGER, SAVE :: flag_aerosol_strat
-    !$OMP THREADPRIVATE(flag_aerosol_strat)
-    !
-    !--INTERACTIVE AEROSOL FEEDBACK ON RADIATION
-    LOGICAL, SAVE :: flag_aer_feedback
-    !$OMP THREADPRIVATE(flag_aer_feedback)
 
     !c-fin STRAT AEROSOL
@@ -1379 +1346 @@
        !
        !     appel a la lecture du run.def physique
-       CALL conf_phys( solarlong0, &
-            fact_cldcon,facttemps,ok_newmicro,iflag_radia, &
-            iflag_cld_th, &
-            ok_ade, ok_aie, ok_alw, ok_cdnc, ok_volcan, flag_volc_surfstrat, aerosol_couple, &
-            chemistry_couple, flag_aerosol, flag_aerosol_strat, flag_aer_feedback, &
-            flag_bc_internal_mixture, bl95_b0, bl95_b1, &
-                                ! nv flags pour la convection et les
-                                ! poches froides
-            read_climoz, &
-            alp_offset)
+       CALL conf_phys( read_climoz )
        CALL init_etat0_limit_unstruct
        IF (.NOT. create_etat0_limit) CALL init_limit_read(days_elapsed)