--- trunk/libf/dyn3d/leapfrog.f90	2012/08/29 14:47:17	64
+++ trunk/libf/dyn3d/leapfrog.f90	2012/09/20 13:00:41	66
@@ -17,7 +17,7 @@
     USE calfis_m, ONLY: calfis
     USE comconst, ONLY: daysec, dtphys, dtvr
     USE comgeom, ONLY: aire_2d, apoln, apols
-    USE comvert, ONLY: ap, bp
+    USE disvert_m, ONLY: ap, bp
     USE conf_gcm_m, ONLY: day_step, iconser, iperiod, iphysiq, nday, offline, &
          iflag_phys, ok_guide
     USE dimens_m, ONLY: iim, jjm, llm, nqmx
@@ -57,7 +57,7 @@
 
     REAL pks((iim + 1) * (jjm + 1)) ! exner au sol
     REAL pk(iim + 1, jjm + 1, llm) ! exner au milieu des couches
-    REAL pkf((iim + 1) * (jjm + 1), llm) ! exner filt.au milieu des couches
+    REAL pkf(iim + 1, jjm + 1, llm) ! exner filtré au milieu des couches
     REAL phi(iim + 1, jjm + 1, llm) ! geopotential
     REAL w((iim + 1) * (jjm + 1), llm) ! vitesse verticale