--- trunk/libf/dyn3d/fxy.f90	2008/03/31 12:24:17	7
+++ trunk/libf/dyn3d/fxy.f90	2011/01/25 15:11:05	39
@@ -64,7 +64,7 @@
 
   REAL FUNCTION ripx(ri)
     ! stretching in x
-    USE comconst, ONLY : pi
+    USE nr_util, ONLY : pi
     REAL, INTENT (IN) :: ri
 
     ripx = (ri - 1.) * 2 * pi / REAL(iim)
@@ -74,7 +74,7 @@
 
   REAL FUNCTION fx(ri)
     ! stretching in x
-    USE comconst, ONLY : pi
+    USE nr_util, ONLY : pi
     USE serre, ONLY : alphax, pxo, transx
     REAL, INTENT (IN) :: ri
 
@@ -85,7 +85,7 @@
 
   REAL FUNCTION fxprim(ri)
     ! stretching in x
-    USE comconst, ONLY : pi
+    USE nr_util, ONLY : pi
     USE serre, ONLY : alphax, pxo, transx
     REAL, INTENT (IN) :: ri
 
@@ -96,7 +96,7 @@
 
   REAL FUNCTION bigy(rj)
     ! stretching in y
-    USE comconst, ONLY : pi
+    USE nr_util, ONLY : pi
     REAL, INTENT (IN) :: rj
 
     bigy = 2 * (REAL(jjm + 1) - rj) * pi / jjm
@@ -106,7 +106,7 @@
 
   REAL FUNCTION fy(rj)
     ! stretching in y
-    USE comconst, ONLY : pi
+    USE nr_util, ONLY : pi
     USE serre, ONLY : alphay, pyo, transy
     REAL, INTENT (IN) :: rj
 
@@ -118,7 +118,7 @@
 
   REAL FUNCTION fyprim(rj)
     ! stretching in y
-    USE comconst, ONLY : pi
+    USE nr_util, ONLY : pi
     USE serre, ONLY : alphay, pyo, transy
     REAL, INTENT (IN) :: rj