PROGRAM main_consumer_perturb
  USE m_ser
  IMPLICIT NONE
  REAL(KIND=8), DIMENSION(5,5,5) :: a

  a = 0.0
  PRINT*,'Before read from serializer: sum(a)=', sum(a)
  CALL deserialize_with_perturb(a)
  PRINT*,'After read from serializer: sum(a)=', sum(a)
END PROGRAM main_consumer_perturb

clementval/serialbox,C2SM-RCM/serialbox,clementval/serialbox,clementval/serialbox,clementval/serialbox,MeteoSwiss-APN/serialbox,C2SM-RCM/serialbox,C2SM-RCM/serialbox,C2SM-RCM/serialbox,MeteoSwiss-APN/serialbox,MeteoSwiss-APN/serialbox,MeteoSwiss-APN/serialbox