Philippe 23/02/2016: lfi2cdf: modif for JPHEXT/=1

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