Index: trunk/LMDZ.MARS/libf/phymars/soilwater.F90
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/soilwater.F90	(revision 3905)
+++ trunk/LMDZ.MARS/libf/phymars/soilwater.F90	(revision 3906)
@@ -595,5 +595,5 @@
         ! Set loop flags
         do ik = 1, nsoil
-            condensation_flag = .false.
+            condensation_flag(ik) = .false.
         enddo
         
@@ -704,5 +704,5 @@
                     znsoil(ig, ik) = zalpha(ig, ik) * znsoil(ig, ik + 1) + zbeta(ig, ik)
                     
-                    if (.not. over_mono_sat_flag(ig, nsoil)) then  ! modified 2024
+                    if (.not. over_mono_sat_flag(ig, ik)) then  ! modified 2024
                         adswater_temp(ig, ik) = (Ka(ig, ik) * ptimestep * znsoil(ig, ik) + adswprev(ig, ik)) &
                                               / (1.D0 + ptimestep * Kd(ig, ik))
@@ -969,5 +969,5 @@
                         znsoil(ig, ik) = zalpha(ig, ik) * znsoil(ig, ik + 1) + zbeta(ig, ik)
                         
-                        if (.not. over_mono_sat_flag(ig, nsoil)) then  ! modified 2024
+                        if (.not. over_mono_sat_flag(ig, ik)) then  ! modified 2024
                             adswater_temp(ig, ik) = (Ka(ig, ik) * ptimestep * znsoil(ig, ik) + adswprev(ig, ik)) &
                                                   / (1.D0 + ptimestep * Kd(ig, ik))