From 8e53d538834830da8fa8c768cb1b05040794ce58 Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Mon, 27 Jan 2020 10:43:52 +0100 Subject: [PATCH] Philippe 27/01/2020: lfi2cdf: split mode_field.f90 in modd_field.f90 and mode_field.f90 --- LIBTOOLS/tools/lfi2cdf/src/lfi2cdf.f90 | 4 ++-- LIBTOOLS/tools/lfi2cdf/src/mode_options.f90 | 4 ++-- LIBTOOLS/tools/lfi2cdf/src/mode_util.f90 | 8 +++++--- 3 files changed, 9 insertions(+), 7 deletions(-) diff --git a/LIBTOOLS/tools/lfi2cdf/src/lfi2cdf.f90 b/LIBTOOLS/tools/lfi2cdf/src/lfi2cdf.f90 index 3b757c3bc..4bf5549a1 100644 --- a/LIBTOOLS/tools/lfi2cdf/src/lfi2cdf.f90 +++ b/LIBTOOLS/tools/lfi2cdf/src/lfi2cdf.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2019 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2020 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -14,7 +14,7 @@ program LFI2CDF USE MODD_PARAMETERS, ONLY: JPHEXT, JPVEXT USE MODD_TIMEZ, ONLY: TIMEZ - USE MODE_FIELD, ONLY: INI_FIELD_LIST + use mode_field, only: Ini_field_list USE MODE_IO, ONLY: IO_Init, IO_Config_set use mode_ll USE mode_options diff --git a/LIBTOOLS/tools/lfi2cdf/src/mode_options.f90 b/LIBTOOLS/tools/lfi2cdf/src/mode_options.f90 index e578f204c..0331b364c 100644 --- a/LIBTOOLS/tools/lfi2cdf/src/mode_options.f90 +++ b/LIBTOOLS/tools/lfi2cdf/src/mode_options.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 2015-2019 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2015-2020 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -8,7 +8,7 @@ ! P. Wautelet 21/10/2019: add OPTDIR option to set directory for writing outfiles !----------------------------------------------------------------- module mode_options - USE MODE_FIELD, ONLY: TYPEUNDEF, TYPEINT, TYPELOG, TYPEREAL, TYPECHAR, TYPEDATE + use modd_field, only: TYPEUNDEF, TYPEINT, TYPELOG, TYPEREAL, TYPECHAR, TYPEDATE implicit none diff --git a/LIBTOOLS/tools/lfi2cdf/src/mode_util.f90 b/LIBTOOLS/tools/lfi2cdf/src/mode_util.f90 index 8dc5e9dc3..cc6146d7e 100644 --- a/LIBTOOLS/tools/lfi2cdf/src/mode_util.f90 +++ b/LIBTOOLS/tools/lfi2cdf/src/mode_util.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2019 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2020 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -14,18 +14,20 @@ ! P. Wautelet 21/10/2019: if DTMOD and DTCUR not found, try to read the time coordinate !----------------------------------------------------------------- MODULE mode_util + use modd_field, only: tfielddata, tfieldlist USE MODD_IO, ONLY: TFILEDATA, TFILE_ELT USE MODD_NETCDF, ONLY: DIMCDF, CDFINT USE MODD_PARAMETERS, ONLY: NLFIMAXCOMMENTLENGTH, NMNHNAMELGTMAX use modd_precision, only: LFIINT - USE MODE_FIELD + use mode_field, only: Find_field_id_from_mnhname USE MODE_IO_FIELD_READ USE MODE_IO_FIELD_WRITE use mode_io_tools_nc4, only: IO_Err_handle_nc4 - + use mode_msg USE mode_options + USE NETCDF IMPLICIT NONE -- GitLab