Skip to content
Snippets Groups Projects
Commit 8e53d538 authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 27/01/2020: lfi2cdf: split mode_field.f90 in modd_field.f90 and mode_field.f90

parent 74df66d6
No related branches found
No related tags found
No related merge requests found
!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 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 version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1. !MNH_LIC for details. version 1.
...@@ -14,7 +14,7 @@ program LFI2CDF ...@@ -14,7 +14,7 @@ program LFI2CDF
USE MODD_PARAMETERS, ONLY: JPHEXT, JPVEXT USE MODD_PARAMETERS, ONLY: JPHEXT, JPVEXT
USE MODD_TIMEZ, ONLY: TIMEZ 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_IO, ONLY: IO_Init, IO_Config_set
use mode_ll use mode_ll
USE mode_options USE mode_options
......
!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 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 version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1. !MNH_LIC for details. version 1.
...@@ -8,7 +8,7 @@ ...@@ -8,7 +8,7 @@
! P. Wautelet 21/10/2019: add OPTDIR option to set directory for writing outfiles ! P. Wautelet 21/10/2019: add OPTDIR option to set directory for writing outfiles
!----------------------------------------------------------------- !-----------------------------------------------------------------
module mode_options 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 implicit none
......
!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 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 version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1. !MNH_LIC for details. version 1.
...@@ -14,18 +14,20 @@ ...@@ -14,18 +14,20 @@
! P. Wautelet 21/10/2019: if DTMOD and DTCUR not found, try to read the time coordinate ! P. Wautelet 21/10/2019: if DTMOD and DTCUR not found, try to read the time coordinate
!----------------------------------------------------------------- !-----------------------------------------------------------------
MODULE mode_util MODULE mode_util
use modd_field, only: tfielddata, tfieldlist
USE MODD_IO, ONLY: TFILEDATA, TFILE_ELT USE MODD_IO, ONLY: TFILEDATA, TFILE_ELT
USE MODD_NETCDF, ONLY: DIMCDF, CDFINT USE MODD_NETCDF, ONLY: DIMCDF, CDFINT
USE MODD_PARAMETERS, ONLY: NLFIMAXCOMMENTLENGTH, NMNHNAMELGTMAX USE MODD_PARAMETERS, ONLY: NLFIMAXCOMMENTLENGTH, NMNHNAMELGTMAX
use modd_precision, only: LFIINT 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_READ
USE MODE_IO_FIELD_WRITE USE MODE_IO_FIELD_WRITE
use mode_io_tools_nc4, only: IO_Err_handle_nc4 use mode_io_tools_nc4, only: IO_Err_handle_nc4
use mode_msg
USE mode_options USE mode_options
USE NETCDF USE NETCDF
IMPLICIT NONE IMPLICIT NONE
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment