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

Timestamp:

Mar 23, 2026, 11:31:30 PM (12 days ago)

Author:

lguez

Message:

Upgrade read_climoz

To variable of module conf_phys_m.

File:

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

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -67 +67 @@
     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_aerosol, read_climoz
     USE conf_phys_m , ONLY : flag_bc_internal_mixture
     USE conf_phys_m , ONLY : solarlong0,alp_offset,flag_aer_feedback,flag_aerosol_strat
@@ -1063 +1063 @@
     ! VARIABLES RELATED TO OZONE CLIMATOLOGIES
     ! Note that pressure vectors are in Pa and in stricly ascending order
-    INTEGER,SAVE :: read_climoz                ! Read ozone climatology
-    !     Allowed values are 0, 1 and 2
-    !     0: do not read an ozone climatology
-    !     1: read a single ozone climatology that will be used day and night
-    !     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
     REAL, ALLOCATABLE, SAVE :: press_edg_climoz(:) ! Edges of pressure intervals
     REAL, ALLOCATABLE, SAVE :: time_climoz(:)      ! Time vector
-    !$OMP THREADPRIVATE(read_climoz, ncid_climoz, press_cen_climoz)
+    !$OMP THREADPRIVATE(ncid_climoz, press_cen_climoz)
     !$OMP THREADPRIVATE(press_edg_climoz, time_climoz)
 
@@ -1265 +1259 @@
        !
        !     appel a la lecture du run.def physique
-       CALL conf_phys( read_climoz )
+       CALL conf_phys
 
        CALL init_etat0_limit_unstruct