--- trunk/Sources/dyn3d/Dissipation/inidissip.f	2016/02/24 18:44:07	177
+++ trunk/Sources/dyn3d/Dissipation/inidissip.f	2016/03/11 18:47:26	178
@@ -32,7 +32,6 @@
     use gradiv2_m, only: gradiv2
     use jumble, only: new_unit
     use nxgraro2_m, only: nxgraro2
-    USE paramet_m, ONLY: jjp1
 
     ! Variables local to the procedure:
     REAL zvert(llm), max_zvert ! no dimension