--- trunk/filtrez/inifgn.f	2014/09/18 19:56:46	113
+++ trunk/filtrez/inifgn.f	2015/01/28 16:10:02	121
@@ -18,7 +18,6 @@
 
     ! Local:
     REAL vec(iim, iim), vec1(iim, iim)
-    REAL dlonu(iim), dlonv(iim)
     REAL du(iim)
     real d(iim)
     REAL pi
@@ -32,13 +31,8 @@
     pi = 2.*asin(1.)
 
     DO i = 1, iim
-       dlonu(i) = xprimu(i)
-       dlonv(i) = xprimv(i)
-    END DO
-
-    DO i = 1, iim
-       sddv(i) = sqrt(dlonv(i))
-       sddu(i) = sqrt(dlonu(i))
+       sddv(i) = sqrt(xprimv(i))
+       sddu(i) = sqrt(xprimu(i))
        unsddu(i) = 1./sddu(i)
        unsddv(i) = 1./sddv(i)
     END DO