--- trunk/libf/dyn3d/iniconst.f90	2010/03/09 15:27:15	26
+++ trunk/libf/dyn3d/iniconst.f90	2011/01/25 15:11:05	39
@@ -4,8 +4,8 @@
   ! P. Le Van
 
   USE dimens_m, ONLY : iim, jjm, llm
-  USE comconst, ONLY : cpp, dtphys, dtvr, im, imp1, jm, kappa, &
-       lllm, lllmm1, lllmp1, pi, r, unsim
+  USE comconst, ONLY : cpp, dtphys, dtvr, im, imp1, jm, kappa, lllm, lllmm1, &
+       lllmp1, r, unsim
   USE comvert, ONLY : disvert
   USE conf_gcm_m, ONLY : iphysiq
 
@@ -23,7 +23,6 @@
 
   dtphys  = iphysiq * dtvr
   unsim   = 1./iim
-  pi      = 2.*ASIN( 1. )
   r       = cpp * kappa
   PRINT *, 'cpp = ', cpp
   PRINT *, 'R = ', r