From c3162597ca5d89a563e8c0f6a8867b7f6af9c239 Mon Sep 17 00:00:00 2001
From: Juan Escobar <juan.escobar@aero.obs-mip.fr>
Date: Fri, 17 Apr 2015 14:16:34 +0000
Subject: [PATCH] Juan 17/04/2015: for field > 2GB , add NF_64BIT_OFFSET
---
tools/lfi2cdf/src/mode_util.f90 | 10 +++++++---
1 file changed, 7 insertions(+), 3 deletions(-)
diff --git a/tools/lfi2cdf/src/mode_util.f90 b/tools/lfi2cdf/src/mode_util.f90
index 0ec3bbd48..122395ae7 100644
--- a/tools/lfi2cdf/src/mode_util.f90
+++ b/tools/lfi2cdf/src/mode_util.f90
@@ -78,14 +78,16 @@ CONTAINS
#ifdef LOWMEM
INTEGER(KIND=8),DIMENSION(:),ALLOCATABLE :: iwork
#endif
+ !JUAN CYCCL3
+ INTEGER,PARAMETER :: JPHEXT=1 ! 3
! First check if IMAX,JMAX,KMAX exist in LFI file
! to handle 3D, 2D variables -> update IDIMX,IDIMY,IDIMZ
CALL FMREADLFIN1(klu,'IMAX',IDIMX,iresp)
- IF (iresp == 0) IDIMX = IDIMX+2 ! IMAX + 2*JPHEXT
+ IF (iresp == 0) IDIMX = IDIMX+2*JPHEXT ! IMAX + 2*JPHEXT
!
CALL FMREADLFIN1(klu,'JMAX',IDIMY,iresp)
- IF (iresp == 0) IDIMY = IDIMY+2 ! JMAX + 2*JPHEXT
+ IF (iresp == 0) IDIMY = IDIMY+2*JPHEXT ! JMAX + 2*JPHEXT
!
CALL FMREADLFIN1(klu,'KMAX',IDIMZ,iresp)
IF (iresp == 0) IDIMZ = IDIMZ+2 ! KMAX + 2*JPVEXT
@@ -632,7 +634,9 @@ CONTAINS
CALL LFIOUV(status,ilu,.TRUE.,filename,'UNKNOWN',.FALSE.&
& ,.FALSE.,iverb,inap,knaf)
- status = NF_CREATE(TRIM(basename)//ypextdest, NF_CLOBBER, kcdf_id)
+ status = NF_CREATE(TRIM(basename)//ypextdest,&
+ IOR(NF_CLOBBER,NF_64BIT_OFFSET), kcdf_id)
+
IF (status /= NF_NOERR) CALL HANDLE_ERR(status,__LINE__)
status = NF_SET_FILL(kcdf_id,NF_NOFILL,omode)
--
GitLab