Changeset 6126 for LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

Timestamp:

Mar 24, 2026, 5:45:21 PM (8 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/phys_output_write_mod.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -17 +17 @@
   ! ug Routine pour définir (lors du premier passage) ET sortir les variables
   SUBROUTINE phys_output_write(itap, pdtphys, paprs, pphis, &
-       pplay, lmax_th, aerosol_couple,         &
-       ok_ade, ok_aie, ok_volcan, ivap, iliq, isol, ibs, ok_sync, &
+       pplay, lmax_th, ivap, iliq, isol, ibs, ok_sync, &
        ptconv, read_climoz, clevSTD, ptconvth, &
-       d_u, d_t, qx, d_qx, zmasse, flag_aerosol, flag_aerosol_strat, ok_cdnc, t, u1, v1)
+       d_u, d_t, qx, d_qx, zmasse, t, u1, v1)
 
     ! This subroutine does the actual writing of diagnostics that were
@@ -35 +34 @@
     USE water_int_mod, ONLY: water_int
     USE lmdz_gwd_ini, ONLY: ok_orodr, ok_orolf, ok_hines, ok_gwd_rando
+    USE conf_phys_m, ONLY : aerosol_couple, ok_ade, ok_aie, ok_volcan, &
+                            flag_aerosol, flag_aerosol_strat, ok_cdnc
     USE phys_output_ctrlout_mod, ONLY: o_phis, o_aire, is_ter, is_lic, is_oce, &
          o_longitude, o_latitude, &
@@ -554 +555 @@
     INTEGER :: itap, ivap, iliq, isol, ibs, read_climoz
     INTEGER, DIMENSION(klon) :: lmax_th
-    LOGICAL :: aerosol_couple, ok_sync
-    LOGICAL :: ok_ade, ok_aie, ok_volcan
+    LOGICAL :: ok_sync
     LOGICAL, DIMENSION(klon, klev) :: ptconv, ptconvth
     REAL :: pdtphys
@@ -565 +565 @@
     REAL, DIMENSION(klon,klev,nqtot) :: qx, d_qx
     REAL, DIMENSION(klon, klev) :: zmasse
-    INTEGER :: flag_aerosol_strat
-    INTEGER :: flag_aerosol 
-    LOGICAL :: ok_cdnc
     REAL, DIMENSION(klon,klev) :: t   ! output for phystoken - offline flux 
     REAL, DIMENSION(klon) :: u1, v1   ! output for phystoken - offline flux