Changeset 5659 for LMDZ6/trunk/libf/phylmd

Timestamp:

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

Author:

lfalletti

Message:

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

Location:

LMDZ6/trunk/libf/phylmd

Files:

• physiq_mod.F90 (modified) (1 diff)
• radlwsw_m.F90 (modified) (1 diff)
• tracreprobus_mod.f90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -113 +113 @@
     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 time_phylmdz_mod,    ONLY: annee_ref, day_ini, day_ref, start_time
     USE vertical_layers_mod, ONLY: aps, bps, ap, bp

LMDZ6/trunk/libf/phylmd/radlwsw_m.F90

@@ -54 +54 @@
     USE write_field_phy
 
-    USE lmdz_reprobus_wrappers, ONLY : solaireTIME, ok_SUNTIME, ndimozon, rad_interactif
+    USE lmdz_reprobus_wrappers, ONLY : solaireTIME, ok_SUNTIME, ndimozon
     USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_REPROBUS
 

LMDZ6/trunk/libf/phylmd/tracreprobus_mod.f90

@@ -16 +16 @@
          daynum, iter, &             ! jourjulien, iteration chimie
          pdel,&
-         d_q_rep,d_ql_rep,d_qi_rep, chemmain_rlong_1401
+         d_q_rep,d_ql_rep,d_qi_rep
     USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_REPROBUS
     IMPLICIT NONE