Index: /LMDZ5/trunk/libf/phylmd/fisrtilp.F90
===================================================================
--- /LMDZ5/trunk/libf/phylmd/fisrtilp.F90	(revision 2968)
+++ /LMDZ5/trunk/libf/phylmd/fisrtilp.F90	(revision 2969)
@@ -909,5 +909,5 @@
                  endif
                  
-                 if (iflag_t_glace.ge.1) then
+                 if (iflag_t_glace.ge.1.and.zfice(i)>0.) then
                  dzfice(i)= exposant_glace * zfice(i)**(exposant_glace-1) &
           &                    / (t_glace_min - t_glace_max)