Changeset 6192

Timestamp:

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

Author:

lguez

Message:

Remove argument read_climoz

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

Location:

LMDZ6/trunk/libf

Files:

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

LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -18 +18 @@
   SUBROUTINE phys_output_write(itap, pdtphys, paprs, pphis, &
        pplay, lmax_th, ivap, iliq, isol, ibs, ok_sync, &
-       ptconv, read_climoz, clevSTD, ptconvth, &
+       ptconv, clevSTD, ptconvth, &
        d_u, d_t, qx, d_qx, zmasse, t, u1, v1)
 
@@ -35 +35 @@
     USE lmdz_gwd_ini, ONLY: ok_orodr, ok_orolf, ok_gwd_rando
     USE conf_phys_m, ONLY : aerosol_couple, ok_ade, ok_aie, ok_volcan, &
-                            flag_aerosol, flag_aerosol_strat, ok_cdnc
+         flag_aerosol, flag_aerosol_strat, ok_cdnc, read_climoz
     USE phys_output_ctrlout_mod, ONLY: o_phis, o_aire, is_ter, is_lic, is_oce, &
          o_longitude, o_latitude, &
@@ -557 +557 @@
 
     ! Input
-    INTEGER :: itap, ivap, iliq, isol, ibs, read_climoz
+    INTEGER :: itap, ivap, iliq, isol, ibs
     INTEGER, DIMENSION(klon) :: lmax_th
     LOGICAL :: ok_sync

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -1776 +1776 @@
                pplay, lmax_th, &
                ivap, iliq, isol, ibs,  ok_sync, &
-               ptconv, read_climoz, clevSTD,                   &
+               ptconv, clevSTD,                   &
                ptconvth, d_u, d_t, qx, d_qx, zmasse,           &
                t, u1, v1)
@@ -5332 +5332 @@
             ivap, iliq, isol, ibs,   &
             ok_sync, &
-            ptconv, read_climoz, clevSTD,          &
+            ptconv, clevSTD,          &
             ptconvth, d_u, d_t, qx, d_qx, zmasse,           &
             t, u1, v1)

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -1900 +1900 @@
             ivap, iliq, isol, ibs,   &
             ok_sync, &
-            ptconv, read_climoz, clevSTD,          &
+            ptconv, clevSTD,          &
             ptconvth, d_u, d_t, qx, d_qx, zmasse,           &
             t, u1, v1)
@@ -7040 +7040 @@
             ivap, iliq, isol, ibs,   &
             ok_sync, &
-            ptconv, read_climoz, clevSTD,          &
+            ptconv, clevSTD,          &
             ptconvth, d_u, d_t, qx, d_qx, zmasse,           &
             t, u1, v1)