Changeset 6139 for LMDZ6/trunk/libf

Timestamp:

Mar 26, 2026, 10:23:23 PM (5 days ago)

Author:

lguez

Message:

Duplicate r6124 in phylmdiso

File:

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

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -38 +38 @@
     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
@@ -1136 +1136 @@
     ! 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)
     CHARACTER(LEN=13), PARAMETER :: vars_climoz(2) &
@@ -1345 +1339 @@
        !
        !     appel a la lecture du run.def physique
-       CALL conf_phys( read_climoz )
+       CALL conf_phys
        CALL init_etat0_limit_unstruct
        IF (.NOT. create_etat0_limit) CALL init_limit_read(days_elapsed)