--- trunk/libf/dyn3d/iniconst.f90	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/iniconst.f90	2010/03/09 15:27:15	26
@@ -3,13 +3,11 @@
   ! From dyn3d/iniconst.F,v 1.1.1.1 2004/05/19 12:53:05
   ! P. Le Van
 
-  use dimens_m
-  use paramet_m
-  use comconst, only: cpp, dtdiss, dtphys, dtvr, im, imp1, jm, kappa, lllm, &
-       lllmm1, lllmp1, pi, r, unsim
-  use comvert, only: disvert
-  use conf_gcm_m, only: idissip, iphysiq
-  use temps
+  USE dimens_m, ONLY : iim, jjm, llm
+  USE comconst, ONLY : cpp, dtphys, dtvr, im, imp1, jm, kappa, &
+       lllm, lllmm1, lllmp1, pi, r, unsim
+  USE comvert, ONLY : disvert
+  USE conf_gcm_m, ONLY : iphysiq
 
   IMPLICIT NONE
 
@@ -23,7 +21,6 @@
   lllmm1  = llm - 1
   lllmp1  = llm + 1
 
-  dtdiss  = idissip * dtvr
   dtphys  = iphysiq * dtvr
   unsim   = 1./iim
   pi      = 2.*ASIN( 1. )