--- trunk/libf/dyn3d/tourpot.f	2010/03/25 14:29:07	27
+++ trunk/dyn3d/tourpot.f	2013/11/15 18:45:49	76
@@ -22,7 +22,7 @@
 
       use dimens_m
       use paramet_m
-      use logic
+      use conf_gcm_m
       use comgeom
       use filtreg_m, only: filtreg
 
@@ -61,7 +61,7 @@
    5  CONTINUE
 
 
-      CALL  filtreg( rot, jjm, llm, 2, 1, .FALSE., 1 )
+      CALL  filtreg( rot, jjm, llm, 2, 1, .FALSE.)
 
 
       DO 10 l = 1, llm