From d370471aff3a38e1d6857113419843ceef65b450 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 1 Dec 2017 15:19:48 +0100
Subject: [PATCH] Philippe 01/12/2017: bug correction: IRESP was not
initialised in MNHOPEN_AUX_IO_SURF
---
src/MNH/mnhopen_aux_io_surf.f90 | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/src/MNH/mnhopen_aux_io_surf.f90 b/src/MNH/mnhopen_aux_io_surf.f90
index a88cfce92..778187f8f 100644
--- a/src/MNH/mnhopen_aux_io_surf.f90
+++ b/src/MNH/mnhopen_aux_io_surf.f90
@@ -105,6 +105,8 @@ INTEGER :: IJPHEXT
!
!* 1. initialization of output listing name
!
+IRESP = 0
+!
SELECT CASE(CPROGRAM)
CASE('MESONH','SPAWN ')
TOUT => TLUOUT
@@ -123,7 +125,7 @@ END IF
!
IF (HFILE/=COUTFMFILE .AND. HFILE/=CPGDFILE) THEN
CALL IO_FILE_ADD2LIST(TPINFILE,TRIM(HFILE),'UNKNOWN','READ',KLFITYPE=2,KLFIVERB=5,OOLD=.TRUE.)
- CALL IO_FILE_OPEN_ll(TPINFILE,OPARALLELIO=.FALSE.)
+ CALL IO_FILE_OPEN_ll(TPINFILE,KRESP=IRESP,OPARALLELIO=.FALSE.)
!
IF (IRESP .NE. 0) THEN
PRINT*," /!\ MNHOPEN_AUX_IO_SURF :: FATAL PROBLEM OPENING INPUT/READ FILES =", HFILE
--
GitLab