diff --git a/tools/lfi2cdf/src/mode_util.f90 b/tools/lfi2cdf/src/mode_util.f90
index 78c1fc0cec9c2ba07f9ca143d55abc8f7c1ef3ad..e82a477e99c3359ce850ef44f0b6584096cd7a1d 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