--- trunk/Sources/phylmd/Orography/orolift.f	2015/04/29 15:47:56	134
+++ trunk/Sources/phylmd/Orography/orolift.f	2015/07/21 14:44:45	158
@@ -156,15 +156,8 @@
         END IF
 2110  CONTINUE
 
-
-200   CONTINUE
-
-!***********************************************************
-
 !*         3.      COMPUTE MOUNTAIN LIFT
 
-300   CONTINUE
-
       DO 301 jl = 1, klon
         IF (ktest(jl)==1) THEN
           ztau(jl,klev+1) = -gklift*zrho(jl,klev+1)*2.*romega*2*pvaror(jl)*sin &
@@ -182,8 +175,6 @@
 !*                 --------------------
 
 
-400   CONTINUE
-
       DO jk = 1, klev
         DO jl = 1, klon
           IF (ktest(jl)==1) THEN
@@ -201,7 +192,6 @@
 !*                 -------------------
       IF (lifthigh) THEN
 
-500     CONTINUE
 !     PRINT *,'  DANS OROLIFT: 500'
 
 !  EXPLICIT SOLUTION AT ALL LEVELS