--- trunk/Sources/test_inter_barxy.f	2015/04/29 15:47:56	134
+++ trunk/Sources/dyn3d/Inter_barxy/test_inter_barxy.f	2016/05/09 19:56:28	191
@@ -1,12 +1,15 @@
 program test_inter_barxy
 
   use comconst, only: dtvr, daysec, iniconst
-  use comgeom, only: rlonu, rlatv, inigeom
+  use comdissnew, only: read_comdissnew
+  use comgeom, only: inigeom
   use conf_gcm_m, only: conf_gcm, day_step
   use dimens_m, only: iim, jjm
+  USE dynetat0_m, only: rlonu, rlatv
   use disvert_m, only: pa
   use inter_barxy_m, only: inter_barxy
   USE nr_util, ONLY : pi
+  use read_serre_m, only: read_serre
 
   implicit none
 
@@ -30,10 +33,12 @@
   allocate(var_ana3d(iml_dyn, jml_dyn))
 
   CALL conf_gcm
+  call read_comdissnew
   dtvr = daysec / real(day_step)
   print *, 'dtvr = ', dtvr
   pa = 5e4
   CALL iniconst
+  call read_serre
   CALL inigeom
 
   lon_ini = - pi + 2 * pi / iml_dyn * (/(i, i = 0, iml_dyn - 1)/)