--- trunk/Sources/phylmd/CV30_routines/cv30_feed.f	2016/08/30 12:52:46	206
+++ trunk/Sources/phylmd/CV30_routines/cv30_feed.f	2016/09/01 10:30:53	207
@@ -11,7 +11,7 @@
     ! Assuming origin level of ascending parcels is minorig.
 
     use cv30_param_m, only: minorig, nl
-    USE dimphy, ONLY: klev, klon
+    USE dimphy, ONLY: klon
     use numer_rec_95, only: locate
 
     real, intent(in):: t1(:, :) ! (klon, klev)