Changeset 5935 for LMDZ6/trunk/libf/misc

Timestamp:

Dec 16, 2025, 7:40:18 PM (4 weeks ago)

Author:

lfalletti

Message:

Modifs pour corriger l'utilisation du wrapper clé CPP pour REPROBUS.

File:

• LMDZ6/trunk/libf/misc/lmdz_reprobus_wrappers.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/misc/lmdz_reprobus_wrappers.F90

@@ -81 +81 @@
   END SUBROUTINE coord_hyb_rep
 
-  SUBROUTINE chemmain_rlong_1401(tr_seri, xlon, xlat, t_seri, pplay, paprs, pphi, pphis, presnivs, sh, debutphy)
-    REAL :: tr_seri(:,:,:), xlon(:), xlat(:), t_seri(:,:), pplay(:,:), paprs(:,:), pphi(:,:), pphis(:), presnivs(:), sh(:,:)
+  SUBROUTINE chemmain_rlong_1401(tr_seri, xlon, xlat, t_seri, pplay, paprs, pphi, pphis, presnivs, debutphy, ql_seri, qs_seri, q_seri,  &
+            nSpeciesErupt, flag_emit, budg_emi, nErupt, &
+            injdur, year_emit_vol, mth_emit_vol, &
+            day_emit_vol, altemiss_vol, sigma_alt_vol, &
+            ponde_lonlat_vol, xlat_min_vol, xlat_max_vol, &
+            xlon_min_vol, xlon_max_vol, id_species, &
+            m_species_emiss_vol)
+    REAL :: tr_seri(:,:,:), xlon(:), xlat(:), t_seri(:,:), pplay(:,:), paprs(:,:), pphi(:,:), pphis(:), presnivs(:), ql_seri(:,:), qs_seri(:,:), q_seri(:,:)
+    REAL :: budg_emi(:,:), injdur, altemiss_vol(:), sigma_alt_vol(:), xlat_min_vol(:), xlat_max_vol(:), xlon_min_vol(:), xlon_max_vol(:), m_species_emiss_vol(:,:)
+    INTEGER :: nSpeciesErupt, flag_emit, nErupt, year_emit_vol(:), mth_emit_vol(:), day_emit_vol(:), ponde_lonlat_vol(:), id_species(:)
     LOGICAL :: debutphy
     CALL lmdz_reprobus_wrapper_abort
@@ -92 +100 @@
   END SUBROUTINE rtime
 
-  SUBROUTINE rad_interactif(pozon, iof)
-    real :: pozon(:,:,:)
+  SUBROUTINE rad_interactif(pozon, iof,tr_seri)
+    real :: pozon(:,:,:), tr_seri(:,:,:)
     integer :: iof
     CALL lmdz_reprobus_wrapper_abort