From 40a3553aa48217f4e9ae75c3e86f8b321766aed1 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <waup@port-waup.aero.obs-mip.fr>
Date: Tue, 20 Jun 2017 16:21:34 +0200
Subject: [PATCH] Philippe 20/06/2017: IO: bug correction: removed HFIPRI
 argument in IO_READ_FIELD_BYNAME_N0

---
 src/LIB/SURCOUCHE/src/fmread_ll.f90 | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/LIB/SURCOUCHE/src/fmread_ll.f90 b/src/LIB/SURCOUCHE/src/fmread_ll.f90
index 95d974d33..956f95e6a 100644
--- a/src/LIB/SURCOUCHE/src/fmread_ll.f90
+++ b/src/LIB/SURCOUCHE/src/fmread_ll.f90
@@ -1274,11 +1274,10 @@ RETURN
 
 END SUBROUTINE FMREADN0_ll
 
-SUBROUTINE IO_READ_FIELD_BYNAME_N0(TPFILE,HNAME,HFIPRI,KFIELD,KRESP)
+SUBROUTINE IO_READ_FIELD_BYNAME_N0(TPFILE,HNAME,KFIELD,KRESP)
 !
 TYPE(TFILEDATA),  INTENT(IN)    :: TPFILE
 CHARACTER(LEN=*), INTENT(IN)    :: HNAME    ! name of the field to write
-CHARACTER(LEN=*), INTENT(IN)    :: HFIPRI   ! output file for error messages
 INTEGER,          INTENT(INOUT) :: KFIELD   ! array containing the data field
 INTEGER,OPTIONAL, INTENT(OUT)   :: KRESP    ! return-code
 !
@@ -1289,7 +1288,7 @@ CALL PRINT_MSG(NVERB_DEBUG,'IO','IO_READ_FIELD_BYNAME_N0',TRIM(TPFILE%CNAME)//':
 !
 CALL FIND_FIELD_ID_FROM_MNHNAME(HNAME,ID,IRESP)
 !
-IF(IRESP==0) CALL IO_READ_FIELD(TPFILE,TFIELDLIST(ID),HFIPRI,KFIELD,IRESP)
+IF(IRESP==0) CALL IO_READ_FIELD(TPFILE,TFIELDLIST(ID),KFIELD,IRESP)
 !
 IF (PRESENT(KRESP)) KRESP = IRESP
 !
-- 
GitLab