Changeset 5659 for LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

Timestamp:

May 16, 2025, 2:23:47 PM (3 weeks ago)

Author:

lfalletti

Message:

REPROBUS: bug fix for the new usage of CPP key (wrapper)

File:

• LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -114 +114 @@
     USE infotrac_phy,      ONLY: nqCO2
     USE lmdz_reprobus_wrappers, ONLY: init_chem_rep_xjour, d_q_rep, d_ql_rep, d_qi_rep, &
-                        ptrop, ttrop, ztrop, gravit, itroprep, Z1, Z2, fac, B, chemini_rep, chemtime_rep, coord_hyb_rep, &
-            rtime
+                        ptrop, ttrop, ztrop, gravit, itroprep, Z1, Z2, fac, B
     USE strataer_local_var_mod
     USE strataer_emiss_mod, ONLY: strataer_emiss_init