--- trunk/libf/dyn3d/tau2alpha.f90	2010/12/21 15:45:48	37
+++ trunk/libf/dyn3d/tau2alpha.f90	2011/01/25 15:11:05	39
@@ -7,11 +7,10 @@
 contains
 
   SUBROUTINE tau2alpha(type, pim, pjm, factt, taumin, taumax, alpha)
-    !=======================================================================
 
     USE dimens_m, ONLY : iim, jjm
     USE paramet_m, ONLY : iip1, jjp1
-    USE comconst, ONLY : pi
+    USE nr_util, ONLY : pi
     USE comgeom, ONLY : cu_2d, cv_2d, rlatu, rlatv
     USE serre, ONLY : clat, clon, grossismx, grossismy