--- trunk/Sources/dyn3d/integrd.f	2015/07/24 14:27:59	161
+++ trunk/dyn3d/integrd.f	2018/02/05 10:39:38	254
@@ -16,7 +16,7 @@
     USE disvert_m, ONLY : ap, bp
     use massdair_m, only: massdair
     use nr_util, only: assert
-    USE paramet_m, ONLY : iip1, iip2, ip1jm, ip1jmp1, jjp1, llmp1
+    USE paramet_m, ONLY : iip1, iip2, ip1jm, llmp1
     use qminimum_m, only: qminimum
 
     REAL vcovm1(ip1jm, llm), ucovm1((iim + 1) * (jjm + 1), llm)