Changeset 6191

Timestamp:

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

Author:

lguez

Message:

Remove argument read_climoz

Of phys_output_write_spl. Instead, in phys_output_write_spl, use
read_climoz from module conf_phys_m.

Location:

LMDZ6/trunk/libf

Files:

• phylmd/Dust/phys_output_write_spl_mod.F90 (modified) (3 diffs)
• phylmd/physiq_mod.F90 (modified) (2 diffs)
• phylmdiso/physiq_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/Dust/phys_output_write_spl_mod.F90

@@ -85 +85 @@
        !ok_ade, ok_aie, 
        ivap, ok_sync, &
-       ptconv, read_climoz, clevSTD, ptconvth, &
+       ptconv, clevSTD, ptconvth, &
        d_t, qx, d_qx, d_tr_dyn, zmasse)
        !, flag_aerosol, flag_aerosol_strat, ok_cdnc)
@@ -97 +97 @@
     USE ocean_slab_mod, ONLY: nslay
     USE conf_phys_m, ONLY: aerosol_couple, ok_ade, ok_aie, ok_cdnc, &
-                           flag_aerosol, flag_aerosol_strat 
+                           flag_aerosol, flag_aerosol_strat, read_climoz
     USE phys_output_ctrlout_mod, ONLY: o_phis, o_aire, is_ter, is_lic, is_oce, &
          is_ave, is_sic, o_contfracATM, o_contfracOR, &
@@ -409 +409 @@
 
     ! Input
-    INTEGER :: itap, ivap, read_climoz
+    INTEGER :: itap, ivap
     INTEGER, DIMENSION(klon) :: lmax_th
     !LOGICAL :: aerosol_couple, ok_sync

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -1765 +1765 @@
                pplay, lmax_th, &
                ivap, ok_sync,                  &
-               ptconv, read_climoz, clevSTD,                   &
+               ptconv, clevSTD,                   &
                ptconvth, d_t, qx, d_qx, d_tr_dyn, zmasse)
        ELSE
@@ -5325 +5325 @@
             pplay, lmax_th, &
             ivap, ok_sync,                  &
-            ptconv, read_climoz, clevSTD,                   &
+            ptconv, clevSTD,                   &
             ptconvth, d_t, qx, d_qx, d_tr_dyn, zmasse)
     ELSE

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -1888 +1888 @@
                pplay, lmax_th, &
                ivap, ok_sync,                  &
-               ptconv, read_climoz, clevSTD,                   &
+               ptconv, clevSTD,                   &
                ptconvth, d_t, qx, d_qx, d_tr_dyn, zmasse)
 ELSE
@@ -7033 +7033 @@
             pplay, lmax_th, &
             ivap, ok_sync,                  &
-            ptconv, read_climoz, clevSTD,                   &
+            ptconv, clevSTD,                   &
             ptconvth, d_t, qx, d_qx, d_tr_dyn, zmasse)
 ELSE