--- trunk/dyn3d/leapfrog.f 2014/08/29 13:00:05 103 +++ trunk/dyn3d/leapfrog.f 2014/09/16 14:00:41 108 @@ -120,15 +120,14 @@ else ! Matsuno dt = dtvr - if (ok_guide .and. itaufin - itau - 1 > day_step / 4) & - call guide(itau, ucov, vcov, teta, q, ps) + if (ok_guide) call guide(itau, ucov, vcov, teta, q(:, :, :, 1), ps) vcovm1 = vcov ucovm1 = ucov tetam1 = teta massem1 = masse psm1 = ps finvmaold = masse - CALL filtreg(finvmaold, jjm + 1, llm, - 2, 2, .TRUE.) + CALL filtreg(finvmaold, direct = .false., intensive = .false.) end if ! Calcul des tendances dynamiques: