--- trunk/libf/dyn3d/leapfrog.f90 2010/04/01 09:07:28 30 +++ trunk/libf/dyn3d/leapfrog.f90 2010/04/01 14:59:19 31 @@ -283,13 +283,6 @@ IF (offline) CALL fluxstokenc(pbaru, pbarv, masse, teta, phi, phis, dtvr, & itaufin) - ! integrations dynamique et traceurs: - CALL integrd(2, vcovm1, ucovm1, tetam1, psm1, massem1, dv, du, dteta, dq, & - dp, vcov, ucov, teta, q, ps, masse, phis, finvmaold, .false., dtvr) - - CALL pression(ip1jmp1, ap, bp, ps, p3d) - CALL exner_hyb(ps, p3d, pks, pk, pkf) - END SUBROUTINE leapfrog end module leapfrog_m