--- trunk/dyn3d/Guide/init_tau2alpha.f	2018/12/07 14:17:11	312
+++ trunk/dyn3d/Guide/init_tau2alpha.f	2018/12/10 15:54:30	313
@@ -11,7 +11,8 @@
     USE comgeom, ONLY: cu_2d, cv_2d
     use coordij_m, only: coordij
     USE dimensions, ONLY: jjm
-    USE dynetat0_m, ONLY: clat, clon, grossismx, grossismy, rlatu
+    USE dynetat0_m, ONLY: rlatu
+    USE dynetat0_chosen_m, ONLY: clat, clon, grossismx, grossismy
     USE paramet_m, ONLY: iip1, jjp1
     use writefield_m, only: writefield