--- trunk/libf/dyn3d/exner_hyb.f90 2012/08/01 14:13:57 63 +++ trunk/libf/dyn3d/exner_hyb.f90 2012/08/29 14:47:17 64 @@ -68,7 +68,7 @@ if (present(pkf)) then pkf = pk - CALL filtreg(pkf, jjm + 1, llm, 2, 1, .TRUE., 1) + CALL filtreg(pkf, jjm + 1, llm, 2, 1, .TRUE.) end if END SUBROUTINE exner_hyb