--- trunk/Sources/dyn3d/principal_cshift.f	2015/04/29 15:47:56	134
+++ trunk/Sources/dyn3d/principal_cshift.f	2015/05/26 17:46:03	139
@@ -11,8 +11,8 @@
     ! xprimm.
 
     USE dimens_m, ONLY: iim
+    use dynetat0_m, only: clon
     use nr_util, only: twopi
-    use serre, only: clon
 
     integer, intent(in):: is2
     real, intent(inout):: xlon(:), xprimm(:) ! (iim + 1)