--- trunk/phylmd/ustarhb.f	2014/03/05 14:57:53	82
+++ trunk/phylmd/ustarhb.f	2014/09/04 10:40:24	105
@@ -33,12 +33,9 @@
 
     REAL ustar(klon)
 
-    INTEGER i, k
-    REAL zxt, zxq, zxu, zxv, zxmod, taux, tauy
+    INTEGER i
+    REAL zxu, zxv, zxmod, taux, tauy
     REAL zx_alf1, zx_alf2 ! parametres pour extrapolation
-    LOGICAL unssrf(klon)  ! unstb pbl w/lvls within srf pbl lyr
-    LOGICAL unsout(klon)  ! unstb pbl w/lvls in outer pbl lyr
-    LOGICAL check(klon)   ! True=>chk if Richardson no.>critcal
 
     !---------------------------------------------------------------