Index: /trunk/MESOSCALE/LMDZ.MARS/libf_gcm/bibio/lnblnk.F
===================================================================
--- /trunk/MESOSCALE/LMDZ.MARS/libf_gcm/bibio/lnblnk.F	(revision 1866)
+++ /trunk/MESOSCALE/LMDZ.MARS/libf_gcm/bibio/lnblnk.F	(revision 1867)
@@ -22,5 +22,5 @@
       INTEGER i,imax
       PARAMETER (imax = 256)
-      CHARACTER*256 letter
+      CHARACTER(len=*) letter
 
       i=0
Index: /trunk/MESOSCALE/LMDZ.MARS/libf_gcm/phymars/newcondens.F
===================================================================
--- /trunk/MESOSCALE/LMDZ.MARS/libf_gcm/phymars/newcondens.F	(revision 1866)
+++ /trunk/MESOSCALE/LMDZ.MARS/libf_gcm/phymars/newcondens.F	(revision 1867)
@@ -763,8 +763,10 @@
              Mtot = masse(m+1)
              MQtot = masse(m+1)*q(m+1)
-             do while ((m.gt.0).and.(-w(l+1).gt.(Mtot+masse(m))))
+             do while (m.gt.0)
+              do while (-w(l+1).gt.(Mtot+masse(m)))
                 m=m-1
                 Mtot = Mtot + masse(m+1)
                 MQtot = MQtot + masse(m+1)*q(m+1)
+              end do
              end do
              if (m.gt.0) then
Index: /trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/mars_lmd/libf/bibio/lnblnk.F
===================================================================
--- /trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/mars_lmd/libf/bibio/lnblnk.F	(revision 1866)
+++ /trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/mars_lmd/libf/bibio/lnblnk.F	(revision 1867)
@@ -22,5 +22,5 @@
       INTEGER i,imax
       PARAMETER (imax = 256)
-      CHARACTER*256 letter
+      CHARACTER(len=*) letter
 
       i=0