--- trunk/libf/dyn3d/caldyn.f90	2010/04/09 10:56:14	33
+++ trunk/libf/dyn3d/caldyn.f90	2010/12/21 15:45:48	37
@@ -10,7 +10,6 @@
   USE paramet_m, ONLY : iip1, ip1jm, ip1jmp1, jjp1, llmp1
   USE comvert, ONLY : ap, bp
   USE comgeom, ONLY : airesurg, constang
-  USE pression_m, ONLY : pression
   use sortvarc_m, only: sortvarc
 
   IMPLICIT NONE
@@ -45,7 +44,7 @@
   !   Calcul des tendances dynamiques:
 
   CALL covcont(llm, ucov, vcov, ucont, vcont)
-  CALL pression(ip1jmp1, ap, bp, ps, p)
+  forall (l = 1: llm + 1) p(:, l) = ap(l) + bp(l) * ps
   CALL psextbar(ps, psexbarxy)
   CALL massdair(p, masse)
   CALL massbar(masse, massebx, masseby)