diff --git a/src/LIB/SURCOUCHE/src/mode_io_field_write.f90 b/src/LIB/SURCOUCHE/src/mode_io_field_write.f90 index f255fa59cef0dc435812b7696f73e1eae01c4fa6..e777d5cac115882bb0cd781ac0f704acae52686f 100644 --- a/src/LIB/SURCOUCHE/src/mode_io_field_write.f90 +++ b/src/LIB/SURCOUCHE/src/mode_io_field_write.f90 @@ -184,6 +184,8 @@ CONTAINS integer :: ierr_mpi integer, dimension(3) :: iresps + kresp_out = 0 + iresps(1) = kresp_in iresps(2) = kresp_lfi iresps(3) = kresp_nc4