From b4b5d2eade602deefaf91b52b11a87cfded7efe8 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 24 Oct 2017 17:17:49 +0200
Subject: [PATCH] Philippe: IO: bug correction in IO_READ_FIELD_BYFIELD_X1 and
IO_READ_FIELD_BYFIELD_N1 These subroutines were not using the correct buffer
if CFORMAT='LFICDF4'
---
src/LIB/SURCOUCHE/src/fmread_ll.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/LIB/SURCOUCHE/src/fmread_ll.f90 b/src/LIB/SURCOUCHE/src/fmread_ll.f90
index 133cd7a20..aee1bd05a 100644
--- a/src/LIB/SURCOUCHE/src/fmread_ll.f90
+++ b/src/LIB/SURCOUCHE/src/fmread_ll.f90
@@ -271,7 +271,7 @@ IF (ASSOCIATED(TZFD)) THEN
!This seems to be allowed for netCDF4 but it is not clean
CALL PRINT_MSG(NVERB_WARNING,'IO','IO_READ_FIELD_BYFIELD_X1',&
TRIM(TPFILE%CNAME)//': reading in a file opened in WRITE mode')
- CALL IO_READ_FIELD_NC4(TPFILE,TPFIELD,PFIELD,IRESP)
+ CALL IO_READ_FIELD_NC4(TPFILE,TPFIELD,ZFIELDP,IRESP)
ELSE
CALL PRINT_MSG(NVERB_FATAL,'IO','IO_READ_FIELD_BYFIELD_X1',&
TRIM(TPFILE%CNAME)//': invalid fileformat ('//TRIM(TPFILE%CFORMAT)//')')
@@ -1444,7 +1444,7 @@ IF (ASSOCIATED(TZFD)) THEN
!This seems to be allowed for netCDF4 but it is not clean
CALL PRINT_MSG(NVERB_WARNING,'IO','IO_READ_FIELD_BYFIELD_N1',&
TRIM(TPFILE%CNAME)//': reading in a file opened in WRITE mode')
- CALL IO_READ_FIELD_NC4(TPFILE,TPFIELD,KFIELD,IRESP)
+ CALL IO_READ_FIELD_NC4(TPFILE,TPFIELD,IFIELDP,IRESP)
ELSE
CALL PRINT_MSG(NVERB_FATAL,'IO','IO_READ_FIELD_BYFIELD_N1',&
TRIM(TPFILE%CNAME)//': invalid fileformat ('//TRIM(TPFILE%CFORMAT)//')')
--
GitLab