Changeset 6196

Timestamp:

Apr 23, 2026, 5:29:58 PM (11 days ago)

Author:

lguez

Message:

Remove argument daily of open_climoz

Instead, in open_climoz, use ok_daily_climoz from module
conf_phys_m.

Location:

LMDZ6/trunk/libf

Files:

• phylmd/conf_phys_m.f90 (modified) (1 diff)
• phylmd/open_climoz_m.f90 (modified) (4 diffs)
• phylmd/physiq_mod.F90 (modified) (1 diff)
• phylmdiso/physiq_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/conf_phys_m.f90

@@ -65 +65 @@
     ! TRUE  => daily interpolation
     ! FALSE => no interpolation (14 months)
+    ! calendar dependent number of days
     !$OMP THREADPRIVATE(ok_daily_climoz)
 

LMDZ6/trunk/libf/phylmd/open_climoz_m.f90

@@ -9 +9 @@
   !-------------------------------------------------------------------------------
   !
-  SUBROUTINE open_climoz(ncid, press_in_cen, time_in, daily, adjust)
+  SUBROUTINE open_climoz(ncid, press_in_cen, time_in, adjust)
     !
     !-------------------------------------------------------------------------------
     USE netcdf95, ONLY: nf95_open, nf95_close, nf95_gw_var, nf95_inq_varid
     USE netcdf,   ONLY: nf90_nowrite
+    use conf_phys_m, only: ok_daily_climoz
     use mod_phys_lmdz_omp_data, only: is_omp_root
     USE mod_phys_lmdz_mpi_data,      ONLY: is_mpi_root
@@ -29 +30 @@
     REAL, allocatable, intent(out):: press_in_cen(:) !--- at cells centers
     REAL, allocatable, intent(out):: time_in(:)      !--- records times, in days since Jan. 1st
-    LOGICAL, INTENT(IN) :: daily     !--- daily files (calendar dependent days nb)
     LOGICAL, INTENT(IN) :: adjust    !--- tropopause adjustement required
     !   pressure levels press_in_cen/edg are in Pa a,d strictly ascending order.
@@ -57 +57 @@
 
        !--- CHECK RECORDS NUMBER AND DISPLAY CORRESPONDING INFORMATION
-       IF(daily.AND.ntim/=year_len) THEN
+       IF(ok_daily_climoz.AND.ntim/=year_len) THEN
           WRITE(msg,'(a,3(i4,a))')TRIM(sub)//': Expecting a daily ozone file with',&
                &year_len,' records (year ',year_cur,') ; found ',ntim,' instead'
@@ -66 +66 @@
           CALL abort_physic(sub, msg, 1)
        ELSE
-          IF(daily) THEN
+          IF(ok_daily_climoz) THEN
              WRITE(msg,'(a,2(i4,a))')'daily file (',ntim,' days in ',year_cur,')'
           ELSE IF(ntim==14) THEN

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -2101 +2101 @@
 
        IF (read_climoz >= 1) CALL open_climoz(ncid_climoz, press_cen_climoz,   &
-            time_climoz, ok_daily_climoz, adjust_tropopause)
+            time_climoz, adjust_tropopause)
        !
        !IM betaCRF

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -2240 +2240 @@
 
        IF (read_climoz >= 1) CALL open_climoz(ncid_climoz, press_cen_climoz,   &
-           time_climoz, ok_daily_climoz, adjust_tropopause)
+           time_climoz, adjust_tropopause)
        !
        !IM betaCRF