Changeset 6189

Timestamp:

Apr 23, 2026, 5:22:06 PM (11 days ago)

Author:

lguez

Message:

Remove argument press_in_edg of open_climoz

Not used anywhere, since revision r3086.

Location:

LMDZ6/trunk/libf

Files:

• phylmd/open_climoz_m.f90 (modified) (4 diffs)
• phylmd/physiq_mod.F90 (modified) (2 diffs)
• phylmdiso/physiq_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/open_climoz_m.f90

@@ -9 +9 @@
   !-------------------------------------------------------------------------------
   !
-  SUBROUTINE open_climoz(ncid, press_in_cen, press_in_edg, time_in, daily, adjust)
+  SUBROUTINE open_climoz(ncid, press_in_cen, time_in, daily, adjust)
     !
     !-------------------------------------------------------------------------------
@@ -28 +28 @@
     INTEGER, INTENT(OUT):: ncid      !--- "climoz_LMDZ.nc" identifier
     REAL, allocatable, intent(out):: press_in_cen(:) !--- at cells centers
-    REAL, allocatable, INTENT(OUT):: press_in_edg(:) !--- at the interfaces (pressure intervals)
     REAL, allocatable, intent(out):: time_in(:)      !--- records times, in days since Jan. 1st
     LOGICAL, INTENT(IN) :: daily     !--- daily files (calendar dependent days nb)
@@ -56 +55 @@
        CALL NF95_GW_VAR(ncid, varid, time_in)
        ntim = SIZE(time_in)
-
-       !--- BUILD EDGES OF PRESSURE INTERVALS: HALFWAY IN LOGARITHMS
-       ALLOCATE(press_in_edg(nlev+1))
-       press_in_edg=[0.,SQRT(press_in_cen(1:nlev-1)*press_in_cen(2:nlev)),HUGE(0.)]
 
        !--- CHECK RECORDS NUMBER AND DISPLAY CORRESPONDING INFORMATION
@@ -94 +89 @@
     IF (.NOT. is_mpi_root .or. .not. is_omp_root) then
        ALLOCATE(press_in_cen(nlev  ))
-       ALLOCATE(press_in_edg(nlev+1))
        ALLOCATE(time_in(ntim))
     end IF
 
     CALL bcast(press_in_cen)
-    CALL bcast(press_in_edg)
     CALL bcast(time_in)
 

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -1060 +1060 @@
     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(ncid_climoz, press_cen_climoz)
-    !$OMP THREADPRIVATE(press_edg_climoz, time_climoz)
+    !$OMP THREADPRIVATE(time_climoz)
 
     CHARACTER(LEN=13), PARAMETER :: vars_climoz(2) &
@@ -2102 +2101 @@
 
        IF (read_climoz >= 1) CALL open_climoz(ncid_climoz, press_cen_climoz,   &
-            press_edg_climoz, time_climoz, ok_daily_climoz, adjust_tropopause)
+            time_climoz, ok_daily_climoz, adjust_tropopause)
        !
        !IM betaCRF

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -1135 +1135 @@
     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(ncid_climoz, press_cen_climoz)
-    !$OMP THREADPRIVATE(press_edg_climoz, time_climoz)
+    !$OMP THREADPRIVATE(time_climoz)
     CHARACTER(LEN=13), PARAMETER :: vars_climoz(2) &
                                   = ["tro3         ","tro3_daylight"]
@@ -2241 +2240 @@
 
        IF (read_climoz >= 1) CALL open_climoz(ncid_climoz, press_cen_climoz,   &
-           press_edg_climoz, time_climoz, ok_daily_climoz, adjust_tropopause)
+           time_climoz, ok_daily_climoz, adjust_tropopause)
        !
        !IM betaCRF