From e4f96b0fe8f0689a29cfd9e38a9bca24a424b666 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 23 Feb 2016 16:32:00 +0100
Subject: [PATCH] Philippe 23/02/2016: lfi2cdf: modif for JPHEXT/=1
---
tools/lfi2cdf/src/mode_util.f90 | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/tools/lfi2cdf/src/mode_util.f90 b/tools/lfi2cdf/src/mode_util.f90
index 78c1fc0ce..e82a477e9 100644
--- a/tools/lfi2cdf/src/mode_util.f90
+++ b/tools/lfi2cdf/src/mode_util.f90
@@ -117,8 +117,7 @@ CONTAINS
CHARACTER(LEN=FM_FIELD_SIZE) :: var_calc
CHARACTER(LEN=FM_FIELD_SIZE),dimension(MAXRAW) :: var_raw
INTEGER, DIMENSION(10) :: idim_id
- !JUAN CYCCL3
- INTEGER :: JPHEXT
+ INTEGER :: JPHEXT
IF (infiles%files(1)%format == LFI_FORMAT) THEN
ilu = infiles%files(1)%lun_id
--
GitLab