From 1083c794fe28ea080cc06f01412cda7cacb49955 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 23 Feb 2018 15:36:34 +0100
Subject: [PATCH] Philippe 23/02/2018: lfi2cdf: add CPROGRAM + some
 initialisations to later use file and fields structures from MNH

---
 LIBTOOLS/tools/lfi2cdf/src/lfi2cdf.f90 | 28 ++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/LIBTOOLS/tools/lfi2cdf/src/lfi2cdf.f90 b/LIBTOOLS/tools/lfi2cdf/src/lfi2cdf.f90
index e6e58e46b..0661659d9 100644
--- a/LIBTOOLS/tools/lfi2cdf/src/lfi2cdf.f90
+++ b/LIBTOOLS/tools/lfi2cdf/src/lfi2cdf.f90
@@ -1,6 +1,12 @@
 program LFI2CDF
+  USE MODD_CONF,  ONLY: CPROGRAM
+
+  USE MODE_IO_ll,  ONLY: INITIO_ll, SET_CONFIO_ll
   USE mode_options
   USE mode_util
+
+  USE MODN_CONFIO, ONLY: LCDF4, LLFIOUT, LLFIREAD
+
   IMPLICIT NONE 
 
   INTEGER :: ibuflen
@@ -20,8 +26,30 @@ program LFI2CDF
   integer                      :: runmode
 
 
+  CPROGRAM = 'LFICDF'
+
+  CALL INITIO_ll()
+  CALL VERSION
+
   call read_commandline(options,hinfile,houtfile,runmode)
 
+  IF (runmode == MODELFI2CDF) THEN
+     LCDF4    = .TRUE.
+     LLFIOUT  = .FALSE.
+     LLFIREAD = .TRUE.
+     CALL SET_CONFIO_ll()
+  ELSE IF (runmode == MODECDF2CDF) THEN
+     LCDF4    = .TRUE.
+     LLFIOUT  = .FALSE.
+     LLFIREAD = .FALSE.
+     CALL SET_CONFIO_ll()
+  ELSE
+     LCDF4    = .TRUE.
+     LLFIOUT  = .TRUE.
+     LLFIREAD = .FALSE.
+     CALL SET_CONFIO_ll()
+  END IF
+
   CALL OPEN_FILES(infiles, outfiles, hinfile, houtfile, nbvar_infile, options, runmode)
   IF (options(OPTLIST)%set) STOP
 
-- 
GitLab