Index: LMDZ.3.3/trunk/libf/phylmd/fisrtilp.F
===================================================================
--- LMDZ.3.3/trunk/libf/phylmd/fisrtilp.F	(revision 57)
+++ LMDZ.3.3/trunk/libf/phylmd/fisrtilp.F	(revision 60)
@@ -281,12 +281,11 @@
          zrfl(i) = zrfl(i)+ MAX(zcond(i)-zoliq(i),0.0)
      .                    * (paprs(i,k)-paprs(i,k+1))/(RG*dtime)
-         IF (zt(i).LT.RTT) THEN
-           psfl(i,k)=zrfl(i)
-         ELSE
-           prfl(i,k)=zrfl(i)
-         ENDIF
-      ENDIF
-      ENDDO
-
+      ENDIF
+      IF (zt(i).LT.RTT) THEN
+        psfl(i,k)=zrfl(i)
+      ELSE
+        prfl(i,k)=zrfl(i)
+      ENDIF
+      ENDDO
 c
 c Calculer les tendances de q et de t:
Index: LMDZ.3.3/trunk/libf/phylmd/fisrtilp_tr.F
===================================================================
--- LMDZ.3.3/trunk/libf/phylmd/fisrtilp_tr.F	(revision 57)
+++ LMDZ.3.3/trunk/libf/phylmd/fisrtilp_tr.F	(revision 60)
@@ -349,9 +349,9 @@
          zrfl(i) = zrfl(i)+ MAX(zcond(i)-zoliq(i),0.0)
      .                    * (paprs(i,k)-paprs(i,k+1))/(RG*dtime)
-         IF (zt(i).LT.RTT) THEN
-           psfl(i,k)=zrfl(i)
-         ELSE
-           prfl(i,k)=zrfl(i)
-         ENDIF
+      ENDIF
+      IF (zt(i).LT.RTT) THEN
+        psfl(i,k)=zrfl(i)
+      ELSE
+        prfl(i,k)=zrfl(i)
       ENDIF
       ENDDO