Changeset 5937 for LMDZ6/trunk

Timestamp:

Dec 17, 2025, 2:22:06 PM (13 days ago)

Author:

lfalletti

Message:

Bug fix pour commit 5935 (mise a jour pour REPROBUS)

Location:

LMDZ6/trunk/libf

Files:

• misc/lmdz_reprobus_wrappers.F90 (modified) (1 diff)
• phylmd/infotrac_phy.F90 (modified) (1 diff)

LMDZ6/trunk/libf/misc/lmdz_reprobus_wrappers.F90

@@ -100 +100 @@
   END SUBROUTINE rtime
 
-  SUBROUTINE rad_interactif(pozon, iof,tr_seri)
+  SUBROUTINE rad_interactif(pozon, iof, tr_seri, nbtr)
     real :: pozon(:,:,:), tr_seri(:,:,:)
-    integer :: iof
+    integer :: iof, nbtr
     CALL lmdz_reprobus_wrapper_abort
   END SUBROUTINE rad_interactif

LMDZ6/trunk/libf/phylmd/infotrac_phy.F90

@@ -135 +135 @@
    USE iniprint_mod_h
    USE ioipsl_getin_p_mod, ONLY: getin_p
-   USE CHEM_REP, ONLY: init_chem_rep_trac, init_chem_rep_phys, init_chem_rep_xjour, &
-        pdel, d_q_rep, d_ql_rep, d_qi_rep, &
-        iter, rsuntime, pdt_rep, daynum, rch42d, rn2o2d, rcfc112d, rcfc122d, &
-        ptrop, ttrop, ztrop, gravit, itroprep, Z1, Z2, fac, B, &
-        solaireTIME, ok_SUNTIME, ok_rtime2d, ndimozon
-   USE CHEMINI_REPR, ONLY: CHEMINI_REP
-   USE chemmain_rlong, ONLY: chemmain_rlong_1401
+   USE lmdz_reprobus_wrappers, ONLY: init_chem_rep_trac
    USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA, CPPKEY_REPROBUS, CPPKEY_STRATAER
    USE mod_phys_lmdz_para, ONLY: is_master, is_omp_master