Index: LMDZ6/trunk/libf/phylmd/lmdz_lscp_old.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/lmdz_lscp_old.F90	(revision 4666)
+++ LMDZ6/trunk/libf/phylmd/lmdz_lscp_old.F90	(revision 4667)
@@ -56,4 +56,6 @@
   !======================================================================
   include "YOMCST.h"
+  include "YOETHF.h"
+  include "FCTTRE.h"
   !
   ! Principaux inputs:
@@ -86,4 +88,5 @@
   REAL, DIMENSION(klon,klev),      INTENT(OUT)  :: d_qi ! incrementation de l'eau glace
   REAL, DIMENSION(klon,klev),      INTENT(OUT)  :: rneb, rneblsvol ! fraction nuageuse
+  REAL, DIMENSION(klon,klev),      INTENT(OUT)  :: beta ! taux de conversion de l'eau cond
   REAL, DIMENSION(klon,klev),      INTENT(OUT)  :: radliq ! eau liquide utilisee dans rayonnements
   REAL, DIMENSION(klon,klev),      INTENT(OUT)  :: rhcl ! humidite relative en ciel clair
@@ -180,5 +183,4 @@
   !AA
 ! RomP >>> 15 nov 2012
-  REAL, DIMENSION(klon,klev) :: beta ! taux de conversion de l'eau cond
 ! RomP <<<
   REAL, DIMENSION(klon) :: zmair
@@ -193,9 +195,9 @@
   REAL ::  fallvs,fallvc ! Vitesse de chute pour cristaux de glace
                      ! (Heymsfield & Donner, 1990)
-  REAL zzz
-  include "YOETHF.h"
-  include "FCTTRE.h"
   fallvc (zzz) = 3.29/2.0 * ((zzz)**0.16) * ffallv_con
   fallvs (zzz) = 3.29/2.0 * ((zzz)**0.16) * ffallv_lsc
+
+  REAL :: zzz
+
   !
   !ym
@@ -1677,4 +1679,5 @@
   endif
 
+RETURN
 END SUBROUTINE fisrtilp
 END MODULE lmdz_lscp_old