--- trunk/Sources/filtrez/inifilr.f	2015/06/23 15:14:20	151
+++ trunk/Sources/filtrez/inifilr.f	2015/07/07 17:49:23	154
@@ -31,7 +31,7 @@
 
     USE dimens_m, ONLY : iim, jjm
     USE dynetat0_m, ONLY : rlatu, rlatv, xprimu, grossismx
-    use inifgn_m, only: inifgn, eignfnu, eignfnv
+    use inifgn_m, only: inifgn
     use jumble, only: new_unit
     use nr_util, only: pi
 
@@ -44,6 +44,9 @@
     REAL colat0 ! > 0
     REAL eignft(iim, iim), coff
 
+    real eignfnu(iim, iim), eignfnv(iim, iim)
+    ! eigenfunctions of the discrete laplacian
+
     ! Filtering coefficients (lamda_max * cos(rlat) / lamda):
     real coefilu(iim, jjm), coefilv(iim, jjm)
     real coefilu2(iim, jjm), coefilv2(iim, jjm)
@@ -56,7 +59,7 @@
 
     print *, "Call sequence information: inifilr"
 
-    CALL inifgn(eignvl)
+    CALL inifgn(eignvl, eignfnu, eignfnv)
 
     ! compute eigenvalues and eigenfunctions
     ! compute the filtering coefficients for scalar lines and