--- trunk/dyn3d/principal_cshift.f	2015/02/06 15:00:28	125
+++ trunk/dyn3d/principal_cshift.f	2018/02/05 10:39:38	254
@@ -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)