Context Navigation

Changeset 5786

Timestamp:

Jul 21, 2025, 1:33:25 PM (4 days ago)

Author:

acozic

Message:

Add use of lmdz_reprobus_wrappers to allow compilation in debug when we run without reprobus

Location:

LMDZ6/trunk/libf

Files:

r5748	r5786
41	41	using_xios
42	42	USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA, CPPKEY_REPROBUS
	43	USE lmdz_reprobus_wrappers, ONLY: finalize_reprobus
43	44	USE strings_mod, ONLY: num2str
44	45

r5659	r5786
19	19	USE infotrac_phy, ONLY: nbtr_bin, nbtr_sulgas, id_OCS_strat, &
20	20	id_SO2_strat, id_H2SO4_strat, id_BIN01_strat
21		USE lmdz_reprobus_wrappers, ONLY : init_chem_rep_phys
	21	USE lmdz_reprobus_wrappers, ONLY : init_chem_rep_phys, init_reprobus_para
22	22	#ifdef CPP_PARA
23	23	USE parallel_lmdz, ONLY : mpi_size, mpi_rank

-                      r5778
+                      r5786
     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
+         ptrop, ttrop, ztrop, gravit, itroprep, Z1, Z2, fac, B, &
+         chemini_rep, rtime, chemtime_rep, coord_hyb_rep
     USE time_phylmdz_mod,    ONLY: annee_ref, day_ini, day_ref, start_time
     USE vertical_layers_mod, ONLY: aps, bps, ap, bp

r5677	r5786
55	55	USE write_field_phy
56	56
57		USE lmdz_reprobus_wrappers, ONLY : solaireTIME, ok_SUNTIME, ndimozon
	57	USE lmdz_reprobus_wrappers, ONLY : solaireTIME, ok_SUNTIME, ndimozon, rad_interactif
58	58	USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_REPROBUS
59	59

r5659	r5786
16	16	daynum, iter, & ! jourjulien, iteration chimie
17	17	pdel,&
18		d_q_rep,d_ql_rep,d_qi_rep
	18	d_q_rep,d_ql_rep,d_qi_rep, chemmain_rlong_1401
19	19	USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_REPROBUS
20	20	IMPLICIT NONE

-                      r5769
+                      r5786
     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
+                        ptrop, ttrop, ztrop, gravit, itroprep, Z1, Z2, fac, B, &
+                        chemini_rep, rtime, chemtime_rep, coord_hyb_rep
     USE strataer_local_var_mod
     USE strataer_emiss_mod, ONLY: strataer_emiss_init

Note: See TracChangeset for help on using the changeset viewer.