Changeset 6106 for LMDZ6/trunk/libf/phylmd/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/phylmd/physiq_mod.F90 (modified) (8 diffs)

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -61 +61 @@
     !                  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
@@ -501 +509 @@
 
     !======================================================================
-    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
@@ -618 +624 @@
     !$OMP THREADPRIVATE(abortphy)
     !
-    REAL,SAVE ::  solarlong0
-    !$OMP THREADPRIVATE(solarlong0)
-
     !      REAL,allocatable,save :: run_off_lic_0(:)
     ! !$OMP THREADPRIVATE(run_off_lic_0)
@@ -718 +721 @@
     REAL d_t_adjwk(klon,klev)                !jyg
     REAL d_q_adjwk(klon,klev)                !jyg
+
     LOGICAL,SAVE :: ok_adjwk=.FALSE.
     !$OMP THREADPRIVATE(ok_adjwk)
     INTEGER,SAVE :: iflag_adjwk=0            !jyg
     !$OMP THREADPRIVATE(iflag_adjwk)         !jyg
-    REAL, SAVE :: alp_offset
-    !$OMP THREADPRIVATE(alp_offset)
+
+
     REAL, SAVE :: dtcon_multistep_max=1.e6
     !$OMP THREADPRIVATE(dtcon_multistep_max)
@@ -983 +987 @@
     INTEGER kcbot(klon), kctop(klon), kdtop(klon)
 
-    ! 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)
     ! Variables liees a l'ecriture de la bande histoire physique
@@ -1051 +1051 @@
     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
@@ -1090 +1068 @@
     !     2: read two ozone climatologies, the average day and night
     !     climatology and the daylight climatology
+
     INTEGER,SAVE :: ncid_climoz                ! NetCDF file identifier
     REAL, ALLOCATABLE, SAVE :: press_cen_climoz(:) ! Pressure levels
@@ -1284 +1263 @@
        !
        !     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