Index: trunk/LMDZ.MARS/libf/phymars/phyetat0_mod.F90
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/phyetat0_mod.F90	(revision 2887)
+++ trunk/LMDZ.MARS/libf/phymars/phyetat0_mod.F90	(revision 2892)
@@ -607,5 +607,4 @@
                           "<watercap> is set to zero"
      watercap(:)=0
-   endif ! of if (.not.found)
      write(*,*) 'Now transfer negative surface water ice to', &
                 ' watercap !'
@@ -632,4 +631,5 @@
       enddo
      endif ! of if (nq.ge.1)
+   endif ! of if (.not.found)
 else
    watercap(:)=0
Index: trunk/LMDZ.MARS/libf/phymars/surfini.F
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/surfini.F	(revision 2887)
+++ trunk/LMDZ.MARS/libf/phymars/surfini.F	(revision 2892)
@@ -142,5 +142,7 @@
          
          if (ngrid .ne. 1) then
-!           watercaptag(:) = .false.
+           IF (icelocationmode .ne. 5) then
+             watercaptag(:) = .false.
+           ENDIF
            longwatercaptag(:) = .false.
          endif