From 18abe88249283a2f930ea0e2b04fdfb6043c67ce Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Mon, 12 Jul 2021 14:45:01 +0200
Subject: [PATCH] Quentin 12/07/2021: bugfix revert from commit fde83373b5 for
 initialization of IPROC number of variable to write

---
 src/MNH/write_stationn.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/MNH/write_stationn.f90 b/src/MNH/write_stationn.f90
index 7934d9f40..cbe5bec7f 100644
--- a/src/MNH/write_stationn.f90
+++ b/src/MNH/write_stationn.f90
@@ -157,7 +157,7 @@ type(tfield_metadata_base), dimension(:), allocatable :: tzfields
 IF (TSTATION%X(II)==XUNDEF) RETURN
 IF (TSTATION%Y(II)==XUNDEF) RETURN
 !
-IPROC = 6 + SIZE(TSTATION%R,3) + SIZE(TSTATION%SV,3)
+IPROC = 8 + SIZE(TSTATION%R,3) + SIZE(TSTATION%SV,3)
 
 IF (TSTATION%X(II)==XUNDEF) IPROC = IPROC + 2
 IF (SIZE(TSTATION%TKE  )>0) IPROC = IPROC + 1
-- 
GitLab