Changeset 6126 for LMDZ6/trunk/libf/phylmd/Dust/phys_output_write_spl_mod.F90

Timestamp:

Mar 24, 2026, 5:45:21 PM (11 days ago)

Author:

idelkadi

Message:

Cleaning up the LMDZ physical model (physiq_mod.F90): reducing the number of arguments in calls to output routines

File:

• LMDZ6/trunk/libf/phylmd/Dust/phys_output_write_spl_mod.F90 (modified) (4 diffs)

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

@@ -81 +81 @@
   ! ug Routine pour définir (lors du premier passageà) ET sortir les variables
   SUBROUTINE phys_output_write_spl(itap, pdtphys, paprs, pphis, &
-       pplay, lmax_th, aerosol_couple,         &
-       ok_ade, ok_aie, ivap, ok_sync, &
+       pplay, lmax_th, &
+       !aerosol_couple,         &
+       !ok_ade, ok_aie, 
+       ivap, ok_sync, &
        ptconv, read_climoz, clevSTD, ptconvth, &
-       d_t, qx, d_qx, d_tr_dyn, zmasse, flag_aerosol, flag_aerosol_strat, ok_cdnc)
+       d_t, qx, d_qx, d_tr_dyn, zmasse)
+       !, flag_aerosol, flag_aerosol_strat, ok_cdnc)
 
     ! This subroutine does the actual writing of diagnostics that were
@@ -93 +96 @@
         USE dimphy, ONLY: klon, klev, klevp1
     USE ocean_slab_mod, ONLY: nslay
+    USE conf_phys_m, ONLY: aerosol_couple, ok_ade, ok_aie, ok_cdnc, &
+                           flag_aerosol, flag_aerosol_strat 
     USE phys_output_ctrlout_mod, ONLY: o_phis, o_aire, is_ter, is_lic, is_oce, &
          is_ave, is_sic, o_contfracATM, o_contfracOR, &
@@ -406 +411 @@
     INTEGER :: itap, ivap, read_climoz
     INTEGER, DIMENSION(klon) :: lmax_th
-    LOGICAL :: aerosol_couple, ok_sync
-    LOGICAL :: ok_ade, ok_aie
+    !LOGICAL :: aerosol_couple, ok_sync
+    LOGICAL :: ok_sync
+    !LOGICAL :: ok_ade, ok_aie
     LOGICAL, DIMENSION(klon, klev) :: ptconv, ptconvth
     REAL :: pdtphys
@@ -418 +424 @@
     REAL,DIMENSION(klon,klev,nbtr),INTENT(IN)    :: d_tr_dyn
     REAL, DIMENSION(klon, nbp_lev) :: zmasse
-    INTEGER :: flag_aerosol_strat
-    INTEGER :: flag_aerosol 
-    LOGICAL :: ok_cdnc
+    !INTEGER :: flag_aerosol_strat
+    !INTEGER :: flag_aerosol 
+    !LOGICAL :: ok_cdnc
     REAL, DIMENSION(3) :: freq_moyNMC