MODULE lmdz_timer_filtre
  IMPLICIT NONE
  PRIVATE
  REAL :: time
  REAL :: Last_time
  PUBLIC :: Init_timer, start_timer, stop_timer, Print_filtre_timer
CONTAINS

  SUBROUTINE Init_timer
    time = 0
    Last_time = 0
  END SUBROUTINE Init_timer

  SUBROUTINE Start_timer

    CALL cpu_time(last_time)

  END SUBROUTINE start_timer


  SUBROUTINE stop_timer
    REAL :: T

    CALL cpu_time(t)
    Time = Time + t - last_time

  END SUBROUTINE stop_timer

  SUBROUTINE Print_filtre_timer
    PRINT *, "Temps CPU passe dans le filtre :", Time
  END SUBROUTINE  Print_filtre_timer

END MODULE lmdz_timer_filtre