From cbda2548b2e738bd15c43f868999975a2074c655 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Mon, 5 Oct 2020 15:27:50 +0200
Subject: [PATCH] Philippe 05/10/2020: IO: bugfix: IO_Field_write_error_check:
kresp_out was not initialized
---
src/LIB/SURCOUCHE/src/mode_io_field_write.f90 | 2 ++
1 file changed, 2 insertions(+)
diff --git a/src/LIB/SURCOUCHE/src/mode_io_field_write.f90 b/src/LIB/SURCOUCHE/src/mode_io_field_write.f90
index f255fa59c..e777d5cac 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
--
GitLab