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

Timestamp:

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

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -1597 +1597 @@
        CALL phys_output_open(longitude_deg,latitude_deg,nCFMIP,tabijGCM, &
             iGCM,jGCM,lonGCM,latGCM, &
-            jjmp1,nlevSTD,clevSTD,rlevSTD, phys_tstep,ok_veget, &
-            type_ocean,iflag_pbl,iflag_pbl_split,ok_mensuel,ok_journe, &
-            ok_hf,ok_instan,ok_LES,ok_ade,ok_aie, &
-            read_climoz, phys_out_filestations, &
-            aerosol_couple, &
-            flag_aerosol_strat, pdtphys, paprs, pphis,  &
+            jjmp1,nlevSTD,clevSTD,rlevSTD, phys_tstep, read_climoz, &
+            phys_out_filestations, pdtphys, paprs, pphis,  &
             pplay, lmax_th, ptconv, ptconvth, ivap,  &
             d_u, d_t, qx, d_qx, zmasse, ok_sync_omp)
@@ -1774 +1770 @@
           CALL phytracr_spl_out_init()
           CALL phys_output_write_spl(itap, pdtphys, paprs, pphis,                  &
-               pplay, lmax_th, aerosol_couple,                 &
-               ok_ade, ok_aie, ivap, ok_sync,                  &
+               pplay, lmax_th, &
+               ivap, ok_sync,                  &
                ptconv, read_climoz, clevSTD,                   &
-               ptconvth, d_t, qx, d_qx, d_tr_dyn, zmasse,      &
-               flag_aerosol, flag_aerosol_strat, ok_cdnc)
+               ptconvth, d_t, qx, d_qx, d_tr_dyn, zmasse)
        ELSE
           ! phys_output_write écrit des variables traceurs seulement si iflag_phytrac == 1
@@ -1786 +1781 @@
           ENDIF
           CALL 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)
+               t, u1, v1)
        END IF
 
@@ -5333 +5328 @@
     IF (CPPKEY_DUST) THEN
        CALL phys_output_write_spl(itap, pdtphys, paprs, pphis,  &
-            pplay, lmax_th, aerosol_couple,                 &
-            ok_ade, ok_aie, ivap, ok_sync,                  &
+            pplay, lmax_th, &
+            ivap, ok_sync,                  &
             ptconv, read_climoz, clevSTD,                   &
-            ptconvth, d_t, qx, d_qx, d_tr_dyn, zmasse,      &
-            flag_aerosol, flag_aerosol_strat, ok_cdnc)
+            ptconvth, d_t, qx, d_qx, d_tr_dyn, zmasse)
     ELSE
        CALL phys_output_write(itap, pdtphys, paprs, pphis,  &
-            pplay, lmax_th, aerosol_couple,                 &
-            ok_ade, ok_aie, ok_volcan, ivap, iliq, isol, ibs,   &
-            ok_sync, ptconv, read_climoz, clevSTD,          &
+            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)
+            t, u1, v1)
     END IF