--- trunk/libf/phylmd/fisrtilp.f90	2010/12/02 17:11:04	36
+++ trunk/libf/phylmd/fisrtilp.f90	2012/04/20 14:58:43	61
@@ -11,11 +11,11 @@
   USE dimens_m
   USE dimphy
   USE tracstoke
-  USE yomcst
-  USE yoethf
+  USE suphec_m
+  USE yoethf_m
   USE fcttre
   USE comfisrtilp
-  use numer_rec, only: nr_erf
+  use numer_rec_95, only: nr_erf
 
   IMPLICIT NONE
 
@@ -24,8 +24,8 @@
   REAL, INTENT (IN) :: & ! intervalle du temps (s)                
        dtime
   REAL, INTENT (IN) :: paprs(klon,klev+1) ! pression a inter-couche   
-  REAL, INTENT (IN) :: pplay(klon,klev) ! pression au milieu de couche
-  REAL t(klon,klev) ! temperature (K)                               
+  REAL, INTENT (IN):: pplay(klon,klev) ! pression au milieu de couche
+  REAL, INTENT (IN):: t(klon,klev) ! temperature (K)
   REAL q(klon,klev) ! humidite specifique (kg/kg)                   
   REAL d_t(klon,klev) ! incrementation de la temperature (K)        
   REAL d_q(klon,klev) ! incrementation de la vapeur d'eau