--- trunk/dyn3d/exner_hyb.f	2014/03/06 15:12:00	83
+++ trunk/dyn3d/exner_hyb.f	2014/03/11 15:09:02	88
@@ -6,7 +6,7 @@
 
   SUBROUTINE exner_hyb(ps, p, pks, pk, pkf)
 
-    ! From dyn3d/exner_hyb.F, version 1.1.1.1 2004/05/19 12:53:07
+    ! From dyn3d/exner_hyb.F, version 1.1.1.1, 2004/05/19 12:53:07
     ! Authors: P. Le Van, F. Hourdin
 
     ! Calcule la fonction d'Exner :
@@ -31,7 +31,6 @@
     use dimens_m, only: iim, jjm, llm
     use comconst, only: kappa, cpp
     use disvert_m, only: preff
-    use comgeom, only: aire_2d, apoln, apols
     use filtreg_m, only: filtreg
 
     REAL, intent(in):: ps(iim + 1, jjm + 1)
@@ -49,8 +48,6 @@
     !-------------------------------------
 
     pks = cpp * (ps / preff)**kappa
-    pks(:, 1) = SUM(aire_2d(:iim, 1) * pks(:iim, 1)) / apoln
-    pks(:, jjm + 1) = SUM(aire_2d(:iim, jjm + 1) * pks(:iim, jjm + 1)) / apols
     unpl2k = 1. + 2 * kappa
 
     beta(:, :, llm) = 1. / unpl2k