Index: LMDZ6/trunk/libf/phylmd/Dust/phytracr_spl_mod.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/Dust/phytracr_spl_mod.F90	(revision 4617)
+++ LMDZ6/trunk/libf/phylmd/Dust/phytracr_spl_mod.F90	(revision 4618)
@@ -804,7 +804,7 @@
 
       USE mod_phys_lmdz_transfert_para
-
-  USE phys_cal_mod, only: jD_1jan,year_len, mth_len, days_elapsed, jh_1jan, year_cur, &
-       mth_cur, phys_cal_update
+      USE lmdz_thermcell_dq,  ONLY : thermcell_dq
+      USE phys_cal_mod, only: jD_1jan,year_len, mth_len, days_elapsed, jh_1jan, year_cur, &
+                              mth_cur, phys_cal_update
 
 !
@@ -1070,5 +1070,5 @@
 !----------
       REAL,DIMENSION(klon,klev+1),INTENT(IN)   :: fm_therm
-      REAL,DIMENSION(klon,klev),INTENT(IN)     :: entr_therm
+      REAL,DIMENSION(klon,klev),INTENT(INOUT)     :: entr_therm