From 6764ddbecc8f9a122677964a1dba27608b053842 Mon Sep 17 00:00:00 2001
From: Philippe Wautelet <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 8 Dec 2015 14:05:47 +0000
Subject: [PATCH] Philippe 08/12/2015: minor bug correction: use an INTEGER and
not an INTEGER(KIND=LFI_INT) for netCDF errors
---
src/LIB/SURCOUCHE/src/mode_fm.f90 | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/src/LIB/SURCOUCHE/src/mode_fm.f90 b/src/LIB/SURCOUCHE/src/mode_fm.f90
index 3755b40fd..787588e10 100644
--- a/src/LIB/SURCOUCHE/src/mode_fm.f90
+++ b/src/LIB/SURCOUCHE/src/mode_fm.f90
@@ -154,7 +154,7 @@ LOGICAL, INTENT(IN), OPTIONAL :: OPARALLELIO
!
! Local variable
!
-INTEGER :: IROWF,IRESP,INUMBR,IFMFNL
+INTEGER :: INCERR,IROWF,IRESP,INUMBR,IFMFNL
CHARACTER(LEN=JPFINL) :: YFNDES,YFNLFI
LOGICAL :: GSTATS
LOGICAL, SAVE :: GSFIRST=.TRUE.
@@ -250,9 +250,9 @@ IF (ISP == TZFDLFI%OWNER) THEN
IF (HACTION == 'READ' .AND. .NOT. LLFIREAD) THEN
!! Open NetCDF File for reading
TZFDLFI%CDF => NEWIOCDF()
- IRESOU = NF_OPEN(ADJUSTL(TRIM(HFILEM))//".nc4", NF_NOWRITE, TZFDLFI%CDF%NCID)
- IF (IRESOU /= NF_NOERR) THEN
- PRINT *, 'FMOPEN_ll, NF_OPEN error : ', NF_STRERROR(IRESOU)
+ INCERR = NF_OPEN(ADJUSTL(TRIM(HFILEM))//".nc4", NF_NOWRITE, TZFDLFI%CDF%NCID)
+ IF (INCERR /= NF_NOERR) THEN
+ PRINT *, 'FMOPEN_ll, NF_OPEN error : ', NF_STRERROR(INCERR)
STOP
END IF
PRINT *, 'NF_OPEN: ', TRIM(HFILEM)//'.nc4'
@@ -261,10 +261,10 @@ IF (ISP == TZFDLFI%OWNER) THEN
IF (HACTION == 'WRITE') THEN
! HACTION == 'WRITE'
TZFDLFI%CDF => NEWIOCDF()
- IRESOU = NF_CREATE(ADJUSTL(TRIM(HFILEM))//".nc4", &
+ INCERR = NF_CREATE(ADJUSTL(TRIM(HFILEM))//".nc4", &
&IOR(NF_CLOBBER,NF_NETCDF4), TZFDLFI%CDF%NCID)
- IF (IRESOU /= NF_NOERR) THEN
- PRINT *, 'FMOPEN_ll, NF_CREATE error : ', NF_STRERROR(IRESOU)
+ IF (INCERR /= NF_NOERR) THEN
+ PRINT *, 'FMOPEN_ll, NF_CREATE error : ', NF_STRERROR(INCERR)
STOP
END IF
PRINT *, 'NF_CREATE: ', TRIM(HFILEM)//'.nc4'
--
GitLab