--- trunk/libf/dyn3d/vlyqs.f90	2011/04/08 12:43:31	43
+++ trunk/Sources/dyn3d/vlyqs.f	2015/05/26 17:46:03	139
@@ -11,13 +11,15 @@
 !
 !   --------------------------------------------------------------------
 !
-      use dimens_m
-      use paramet_m
       use comconst
-      use comvert
-      use logic
-      use comgeom
+      use dimens_m
+      use disvert_m
+      use conf_gcm_m
+      use comgeom, only: aire, apoln, apols
       USE nr_util, ONLY : pi
+      USE dynetat0_m, only: rlonv, rlonu
+      use paramet_m
+
       IMPLICIT NONE
 !
 !