Philippe 05/10/2020: IO: bugfix: IO_Field_write_error_check: kresp_out was not initialized

cbda2548 · WAUTELET Philippe · 531f1b8e · cbda2548
Commit cbda2548 authored 4 years ago by WAUTELET Philippe
--- 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