--- trunk/phylmd/fisrtilp.f	2014/09/11 15:09:15	107
+++ trunk/phylmd/fisrtilp.f	2014/09/16 14:00:41	108
@@ -113,14 +113,6 @@
     ! Pour la conversion eau-neige
     REAL zlh_solid(klon), zm_solid
 
-    ! Fonctions en ligne:
-
-    REAL fallvs, fallvc ! vitesse de chute pour crystaux de glace 
-    REAL zzz
-
-    fallvc(zzz) = 3.29/2.0*((zzz)**0.16)*ffallv_con
-    fallvs(zzz) = 3.29/2.0*((zzz)**0.16)*ffallv_lsc
-
     !---------------------------------------------------------------
 
     zdelq = 0.0
@@ -491,6 +483,20 @@
        END DO
     END DO
 
+  contains
+
+    ! vitesse de chute pour crystaux de glace
+
+    REAL function fallvs(zzz)
+      REAL zzz
+      fallvs = 3.29/2.0*((zzz)**0.16)*ffallv_lsc
+    end function fallvs
+
+    real function fallvc(zzz)
+      REAL zzz
+      fallvc = 3.29/2.0*((zzz)**0.16)*ffallv_con
+    end function fallvc
+
   END SUBROUTINE fisrtilp
 
 end module fisrtilp_m