--- trunk/filtrez/test_inifilr.f	2018/07/12 14:49:20	276
+++ trunk/filtrez/test_inifilr.f	2018/12/10 15:54:30	313
@@ -1,10 +1,8 @@
 program test_inifilr
 
   use dimensions, only: iim, jjm
-  use dynetat0_m, only: xprimp025, xprimm025, rlatu1, rlatu2, rlatu, rlatv, &
-       yprimu1, yprimu2, rlonu, rlonv, xprimu, xprimv, read_serre
-  use fxhyp_m, only: fxhyp
-  use fyhyp_m, only: fyhyp
+  use dynetat0_m, only: rlatu, rlatv, fyhyp, fxhyp
+  use dynetat0_chosen_m, only: read_serre
   use inifilr_m, only: inifilr, jfiltnu, jfiltnv, jfiltsu, jfiltsv, &
        matriceun, matrinvn, matricevn, matriceus, matrinvs, matricevs
   use netcdf, only: NF90_CLOBBER, NF90_FLOAT
@@ -25,12 +23,8 @@
   call set_unit_nml
   open(unit_nml, file="used_namelists.txt", status="replace", action="write")
   call read_serre
-
-  CALL fyhyp(rlatu, rlatv, rlatu2, yprimu2, rlatu1, yprimu1)
-  CALL fxhyp(xprimm025, rlonv, xprimv, rlonu, xprimu, xprimp025)
-  rlatu(1) = pi / 2.
-  rlatu(jjm + 1) = -rlatu(1)
-
+  CALL fyhyp
+  CALL fxhyp
   CALL inifilr
   close(unit_nml)