diff --git a/src/MNH/write_diachro.f90 b/src/MNH/write_diachro.f90
index 819e593462ea1bb65ce856ebbce17c87d911b14e..a0cdbe6148f4eec4933ab727322f2308fa35dce8 100644
--- a/src/MNH/write_diachro.f90
+++ b/src/MNH/write_diachro.f90
@@ -653,6 +653,7 @@ character(len=3)                          :: ynum
 integer                                   :: icompx, icompy, icompz
 integer                                   :: idims
 integer                                   :: icount
+integer                                   :: icorr
 integer                                   :: ji
 integer                                   :: jp
 integer(kind=CDFINT)                      :: isavencid