Index: trunk/LMDZ.MARS/libf/phymars/callkeys_mod.F90
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/callkeys_mod.F90	(revision 4063)
+++ trunk/LMDZ.MARS/libf/phymars/callkeys_mod.F90	(revision 4064)
@@ -65,5 +65,5 @@
 !$OMP THREADPRIVATE(topflows)
 logical,save :: dust_coagulation ! coagulation of dust particles
-!$OMP THREADPRIVATE(coagulation)
+!$OMP THREADPRIVATE(dust_coagulation)
 integer,save :: coal_kg ! mode for coalescence 0,1, or 2 
 !$OMP THREADPRIVATE(coal_kg)
Index: trunk/LMDZ.MARS/libf/phymars/dust_coagulation_mod.F90
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/dust_coagulation_mod.F90	(revision 4063)
+++ trunk/LMDZ.MARS/libf/phymars/dust_coagulation_mod.F90	(revision 4064)
@@ -21,5 +21,5 @@
 logical,save :: dust_coag_kernel_de !                 diffusion enhancement
 logical,save :: dust_coag_kernel_ti ! Not implemented yet. 
-!$OMP THREADPRIVATE(full_coag_equations,dust_coag_kernel_b,dust_coag_kernel_g,dust_coag_kernel_de,dust_coag_kernel_ti,coal_coeff_mode) 
+!$OMP THREADPRIVATE(full_coag_equations,dust_coag_kernel_b,dust_coag_kernel_g,dust_coag_kernel_de,dust_coag_kernel_ti) 
 integer,save :: coal_coeff_mode ! Flag to choose how to calculate coalescence coefficient
 !$OMP THREADPRIVATE(coal_coeff_mode)