Changeset 6106 for LMDZ6/trunk/libf/phylmd/conf_phys_m.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/conf_phys_m.f90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/conf_phys_m.f90

@@ -9 +9 @@
     IMPLICIT NONE
 
+! Récupéré de physiq_mod mars 2026. Faire le tri de ce qui doit être réintégré dans
+! des modules spécifiques
     LOGICAL, SAVE, PROTECTED :: ok_journe, ok_mensuel, ok_instan, ok_hf, ok_LES
 !$OMP THREADPRIVATE(ok_journe, ok_mensuel, ok_instan, ok_hf, ok_LES)
+    LOGICAL, SAVE, PROTECTED :: ok_volcan ! pour activer les diagnostics volcaniques
+    !$OMP THREADPRIVATE(ok_volcan)
+    INTEGER, SAVE, PROTECTED :: flag_volc_surfstrat ! pour imposer le cool/heat rate à la surf/strato
+    !$OMP THREADPRIVATE(flag_volc_surfstrat)
+    INTEGER, SAVE, PROTECTED :: iflag_radia     ! active ou non le rayonnement (MPL)
+    !$OMP THREADPRIVATE(iflag_radia)
+    REAL, SAVE, PROTECTED :: facttemps, fact_cldcon
+    !$OMP THREADPRIVATE(facttemps,fact_cldcon)
+    LOGICAL, SAVE, PROTECTED :: ok_newmicro
+    !$OMP THREADPRIVATE(ok_newmicro)
+    INTEGER, SAVE, PROTECTED :: iflag_cld_th
+    !$OMP THREADPRIVATE(iflag_cld_th)
+    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)
+
+    REAL,SAVE ::  solarlong0
+    !$OMP THREADPRIVATE(solarlong0)
+
+    REAL, SAVE :: alp_offset
+    !$OMP THREADPRIVATE(alp_offset)
+
+
 
 CONTAINS
 
-  SUBROUTINE 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,&
-       read_climoz, &
-       alp_offset)
-
+  SUBROUTINE conf_phys( read_climoz )
 
         USE compbl_mod_h
@@ -72 +110 @@
     ! Sortie:
 
-    LOGICAL              :: ok_newmicro
-    INTEGER              :: iflag_radia
-    LOGICAL              :: ok_journe, ok_mensuel, ok_instan, ok_hf
-    LOGICAL              :: ok_LES
-    LOGICAL              :: ok_ade, ok_aie, ok_alw, ok_cdnc, ok_volcan
-    LOGICAL              :: aerosol_couple, chemistry_couple
-    INTEGER              :: flag_aerosol
-    INTEGER              :: flag_aerosol_strat
-    INTEGER              :: flag_volc_surfstrat
-    LOGICAL              :: flag_aer_feedback
-    LOGICAL              :: flag_bc_internal_mixture
-    REAL                 :: bl95_b0, bl95_b1
-    REAL                 :: fact_cldcon,facttemps
-    INTEGER              :: iflag_cld_th
-     
-
-
-
-
     REAL                :: ratio_z0hz0m_land, ratio_z0hz0m_ocean, ratio_z0hz0m_landice, ratio_z0hz0m_seaice
 
-    ! nrlmd le 10/04/2012
-    ! fin nrlmd le 10/04/2012
-    REAL :: alp_offset
-
-    REAL      :: solarlong0
-!FC
-!FC
-!AM
     !
     !rajout de choix_bulk et nit_bulk par Olivier Torres
@@ -1601 +1612 @@
     WRITE(lunout,*) 'conf_phys :  buf_siz_pol= ', buf_siz_pol
     !rajout Olivier Torres
-    write(lunout,*) 'choix_bulk = ', choix_bulk
-    write(lunout,*) 'nit_bulk = ', nit_bulk
-    write(lunout,*) 'kz0 = ', kz0
+    WRITE(lunout,*) 'conf_phys :  choix_bulk = ', choix_bulk
+    WRITE(lunout,*) 'conf_phys :  nit_bulk = ', nit_bulk
+    WRITE(lunout,*) 'conf_phys :  kz0 = ', kz0
+    WRITE(lunout,*) 'conf_phys :  V1'
 
     call config_ocean_skin