--- trunk/libf/dyn3d/exner_hyb.f90 2011/07/19 12:54:20 48 +++ 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