--- trunk/dyn3d/test_fxhyp.f	2018/07/12 14:49:20	276
+++ trunk/dyn3d/test_fxhyp.f	2018/07/12 15:56:17	277
@@ -1,20 +1,17 @@
 program test_fxhyp
 
-  USE dimensions, ONLY: iim
-  use dynetat0_m, only: read_serre
-  use fxhyp_m, only: fxhyp
+  use dynetat0_m, only: read_serre, fxhyp, xprimm025, rlonv, xprimv, rlonu, &
+       xprimu, xprimp025
   use unit_nml_m, only: unit_nml, set_unit_nml
 
   implicit none
 
-  REAL, dimension(iim + 1):: xprimm025, rlonv, xprimv, rlonu, xprimu, xprimp025
-
   !--------------------------------------------------------
 
   call set_unit_nml
   open(unit_nml, file="used_namelists.txt", status="replace", action="write")
   call read_serre
-  call fxhyp(xprimm025, rlonv, xprimv, rlonu, xprimu, xprimp025)
+  call fxhyp
   close(unit_nml)
 
   ! We can use the same unit number although we are not writing a namelist: