--- trunk/Sources/test_inter_barxy.f	2015/05/26 17:46:03	139
+++ trunk/dyn3d/Inter_barxy/test_inter_barxy.f	2018/03/20 09:35:59	265
@@ -1,9 +1,10 @@
 program test_inter_barxy
 
   use comconst, only: dtvr, daysec, iniconst
+  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 dimensions, only: iim, jjm
   USE dynetat0_m, only: rlonu, rlatv
   use disvert_m, only: pa
   use inter_barxy_m, only: inter_barxy
@@ -32,6 +33,7 @@
   allocate(var_ana3d(iml_dyn, jml_dyn))
 
   CALL conf_gcm
+  call read_comdissnew
   dtvr = daysec / real(day_step)
   print *, 'dtvr = ', dtvr
   pa = 5e4