diff --git a/src/LIB/SURCOUCHE/src/modd_field.f90 b/src/LIB/SURCOUCHE/src/modd_field.f90
new file mode 100644
index 0000000000000000000000000000000000000000..58e16d47f9119c119c37c01f1cf4ba4cf4b303ec
--- /dev/null
+++ b/src/LIB/SURCOUCHE/src/modd_field.f90
@@ -0,0 +1,150 @@
+!MNH_LIC Copyright 2016-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.
+!-----------------------------------------------------------------
+! Original version:
+! P. Wautelet: 05/2016-04/2018: new data structures and calls for I/O
+! Modifications:
+! P. Wautelet 12/04/2019: added pointers for C1D, L1D, N1D, X5D and X6D structures in TFIELDDATA
+! P. Wautelet 12/07/2019: add pointers for T1D structure in TFIELDDATA
+! P. Wautelet 23/01/2020: split in modd_field.f90 and mode_field.f90
+!-----------------------------------------------------------------
+module modd_field
+
+use modd_parameters, only: NGRIDUNKNOWN, NMNHNAMELGTMAX, NSTDNAMELGTMAX
+use modd_type_date, only: date_time
+#if defined(MNH_IOCDF4)
+use NETCDF, only: NF90_FILL_INT, NF90_FILL_REAL
+#endif
+
+implicit none
+
+INTEGER,PARAMETER :: MAXFIELDS = 250
+INTEGER,PARAMETER :: TYPEUNDEF = -1, TYPEINT = 1, TYPELOG = 2, TYPEREAL = 3, TYPECHAR = 4, TYPEDATE = 5
+!
+TYPE TFIELDPTR_C0D
+ CHARACTER(LEN=:), POINTER :: DATA => NULL()
+END TYPE TFIELDPTR_C0D
+!
+TYPE TFIELDPTR_C1D
+ CHARACTER(LEN=:),DIMENSION(:),POINTER :: DATA => NULL()
+END TYPE TFIELDPTR_C1D
+!
+TYPE TFIELDPTR_L0D
+ LOGICAL, POINTER :: DATA => NULL()
+END TYPE TFIELDPTR_L0D
+!
+TYPE TFIELDPTR_L1D
+ LOGICAL,DIMENSION(:), POINTER :: DATA => NULL()
+END TYPE TFIELDPTR_L1D
+!
+TYPE TFIELDPTR_N0D
+ INTEGER, POINTER :: DATA => NULL()
+END TYPE TFIELDPTR_N0D
+!
+TYPE TFIELDPTR_N1D
+ INTEGER,DIMENSION(:), POINTER :: DATA => NULL()
+END TYPE TFIELDPTR_N1D
+!
+TYPE TFIELDPTR_N2D
+ INTEGER,DIMENSION(:,:), POINTER :: DATA => NULL()
+END TYPE TFIELDPTR_N2D
+!
+TYPE TFIELDPTR_N3D
+ INTEGER,DIMENSION(:,:,:),POINTER :: DATA => NULL()
+END TYPE TFIELDPTR_N3D
+!
+TYPE TFIELDPTR_X0D
+ REAL, POINTER :: DATA => NULL()
+END TYPE TFIELDPTR_X0D
+!
+TYPE TFIELDPTR_X1D
+ REAL,DIMENSION(:), POINTER :: DATA => NULL()
+END TYPE TFIELDPTR_X1D
+!
+TYPE TFIELDPTR_X2D
+ REAL,DIMENSION(:,:), POINTER :: DATA => NULL()
+END TYPE TFIELDPTR_X2D
+!
+TYPE TFIELDPTR_X3D
+ REAL,DIMENSION(:,:,:),POINTER :: DATA => NULL()
+END TYPE TFIELDPTR_X3D
+!
+TYPE TFIELDPTR_X4D
+ REAL,DIMENSION(:,:,:,:),POINTER :: DATA => NULL()
+END TYPE TFIELDPTR_X4D
+!
+TYPE TFIELDPTR_X5D
+ REAL,DIMENSION(:,:,:,:,:),POINTER :: DATA => NULL()
+END TYPE TFIELDPTR_X5D
+!
+TYPE TFIELDPTR_X6D
+ REAL,DIMENSION(:,:,:,:,:,:),POINTER :: DATA => NULL()
+END TYPE TFIELDPTR_X6D
+!
+TYPE TFIELDPTR_T0D
+ TYPE(DATE_TIME), POINTER :: DATA => NULL()
+END TYPE TFIELDPTR_T0D
+!
+TYPE TFIELDPTR_T1D
+ TYPE(DATE_TIME), DIMENSION(:), POINTER :: DATA => NULL()
+END TYPE TFIELDPTR_T1D
+!
+!Structure describing the characteristics of a field
+TYPE :: TFIELDDATA
+ CHARACTER(LEN=NMNHNAMELGTMAX) :: CMNHNAME = '' !Name of the field (for MesoNH, non CF convention)
+ CHARACTER(LEN=NSTDNAMELGTMAX) :: CSTDNAME = '' !Standard name (CF convention)
+ CHARACTER(LEN=32) :: CLONGNAME = '' !Long name (CF convention)
+ CHARACTER(LEN=40) :: CUNITS = '' !Canonical units (CF convention)
+ CHARACTER(LEN=2) :: CDIR = '' !Type of the data field (XX,XY,--...)
+ CHARACTER(LEN=4) :: CLBTYPE = 'NONE' !Type of the lateral boundary (LBX,LBY,LBXU,LBYV)
+ CHARACTER(LEN=100) :: CCOMMENT = '' !Comment (for MesoNH, non CF convention)
+ INTEGER :: NGRID = NGRIDUNKNOWN !Localization on the model grid
+ INTEGER :: NTYPE = TYPEUNDEF !Datatype
+ INTEGER :: NDIMS = 0 !Number of dimensions
+ LOGICAL :: LTIMEDEP = .FALSE. !Is the field time-dependent?
+ !
+#if defined(MNH_IOCDF4)
+ INTEGER :: NFILLVALUE = NF90_FILL_INT !Fill value for integer fields
+ REAL :: XFILLVALUE = NF90_FILL_REAL !Fill value for real fields
+ !NF90_FILL_REAL is the default fill value
+ !used by netCDF to pre-fill real and also double
+ !variables
+#else
+ INTEGER :: NFILLVALUE = -2147483647 !Fill value for integer fields
+ REAL :: XFILLVALUE = 9.9692099683868690e+36 !Fill value for real fields
+#endif
+ INTEGER :: NVALIDMIN = -2147483646 !Minimum valid value for integer fields
+ INTEGER :: NVALIDMAX = 2147483647 !Maximum valid value for integer fields
+ REAL :: XVALIDMIN = -1.E36 !Minimum valid value for real fields
+ REAL :: XVALIDMAX = 1.E36 !Maximum valid value for real fields
+ !
+ TYPE(TFIELDPTR_C0D),DIMENSION(:),ALLOCATABLE :: TFIELD_C0D !Pointer to the character string fields (one per nested mesh)
+ TYPE(TFIELDPTR_C1D),DIMENSION(:),ALLOCATABLE :: TFIELD_C1D !Pointer to the character string 1D fields (one per nested mesh)
+ !
+ TYPE(TFIELDPTR_L0D),DIMENSION(:),ALLOCATABLE :: TFIELD_L0D !Pointer to the scalar logical fields (one per nested mesh)
+ TYPE(TFIELDPTR_L1D),DIMENSION(:),ALLOCATABLE :: TFIELD_L1D !Pointer to the logical 1D fields (one per nested mesh)
+ !
+ TYPE(TFIELDPTR_N0D),DIMENSION(:),ALLOCATABLE :: TFIELD_N0D !Pointer to the scalar integer fields (one per nested mesh)
+ TYPE(TFIELDPTR_N1D),DIMENSION(:),ALLOCATABLE :: TFIELD_N1D !Pointer to the integer 1D fields (one per nested mesh)
+ TYPE(TFIELDPTR_N2D),DIMENSION(:),ALLOCATABLE :: TFIELD_N2D !Pointer to the integer 2D fields (one per nested mesh)
+ TYPE(TFIELDPTR_N3D),DIMENSION(:),ALLOCATABLE :: TFIELD_N3D !Pointer to the integer 3D fields (one per nested mesh)
+ !
+ TYPE(TFIELDPTR_X0D),DIMENSION(:),ALLOCATABLE :: TFIELD_X0D !Pointer to the scalar real fields (one per nested mesh)
+ TYPE(TFIELDPTR_X1D),DIMENSION(:),ALLOCATABLE :: TFIELD_X1D !Pointer to the real 1D fields (one per nested mesh)
+ TYPE(TFIELDPTR_X2D),DIMENSION(:),ALLOCATABLE :: TFIELD_X2D !Pointer to the real 2D fields (one per nested mesh)
+ TYPE(TFIELDPTR_X3D),DIMENSION(:),ALLOCATABLE :: TFIELD_X3D !Pointer to the real 3D fields (one per nested mesh)
+ TYPE(TFIELDPTR_X4D),DIMENSION(:),ALLOCATABLE :: TFIELD_X4D !Pointer to the real 4D fields (one per nested mesh)
+ TYPE(TFIELDPTR_X5D),DIMENSION(:),ALLOCATABLE :: TFIELD_X5D !Pointer to the real 5D fields (one per nested mesh)
+ TYPE(TFIELDPTR_X6D),DIMENSION(:),ALLOCATABLE :: TFIELD_X6D !Pointer to the real 6D fields (one per nested mesh)
+ !
+ TYPE(TFIELDPTR_T0D),DIMENSION(:),ALLOCATABLE :: TFIELD_T0D !Pointer to the scalar date/time fields (one per nested mesh)
+ TYPE(TFIELDPTR_T1D),DIMENSION(:),ALLOCATABLE :: TFIELD_T1D !Pointer to the date/time 1D fields (one per nested mesh)
+END TYPE TFIELDDATA
+!
+integer, save :: NMODEL_ALLOCATED
+LOGICAL, SAVE :: LFIELDLIST_ISINIT = .FALSE.
+TYPE(TFIELDDATA),DIMENSION(MAXFIELDS),SAVE :: TFIELDLIST
+
+end module modd_field
diff --git a/src/LIB/SURCOUCHE/src/mode_field.f90 b/src/LIB/SURCOUCHE/src/mode_field.f90
index f7dc6bd264745bbbe45f3c5533d51a8d492025dc..a56b264904c6332d208e916679d483f2cead2f9d 100644
--- a/src/LIB/SURCOUCHE/src/mode_field.f90
+++ b/src/LIB/SURCOUCHE/src/mode_field.f90
@@ -11,168 +11,32 @@
! C. Lac 02/2019: add rain fraction as an output field
! S. Bielli 02/2019: sea salt: significant sea wave height influences salt emission; 5 salt modes
! P. Wautelet 06/03/2019: correct ZWS entry
-! P. Wautelet 12/04/2019: added pointers for C1D, L1D, N1D, X5D and X6D structures in TFIELDDATA
! P. Wautelet 06/06/2019: bug correction in FIELDLIST_GOTO_MODEL (XLSTHM was overwritten if LUSERV=.FALSE. due to wrong IF block)
! P. Wautelet 19/06/2019: add Fieldlist_nmodel_resize subroutine + provide KMODEL to INI_FIELD_LIST when known
-! P. Wautelet 12/07/2019: add pointers for T1D structure in TFIELDDATA
+! P. Wautelet 23/01/2020: split in modd_field.f90 and mode_field.f90
!-----------------------------------------------------------------
-MODULE MODE_FIELD
-!
-USE MODD_CONF, ONLY : CPROGRAM
-USE MODD_IO, ONLY : NVERB_DEBUG, NVERB_INFO, NVERB_WARNING, NVERB_ERROR, NVERB_FATAL
-USE MODD_PARAMETERS, only: JPMODELMAX, NGRIDUNKNOWN, NMNHNAMELGTMAX, NSTDNAMELGTMAX
-USE MODD_TYPE_DATE, ONLY : DATE_TIME
-#if defined(MNH_IOCDF4)
-USE NETCDF, ONLY : NF90_FILL_INT, NF90_FILL_REAL
-#endif
-!
-USE MODE_MSG
-!
-IMPLICIT NONE
-!
-#if 0
-!if enabled: crash of GCC 8.3 and 9.1 (and others?) in mode_io_field_read.f90
+module mode_field
+
+use modd_conf, only: cprogram
+use modd_field
+use modd_io, only: NVERB_DEBUG, NVERB_INFO, NVERB_WARNING, NVERB_ERROR, NVERB_FATAL
+use modd_parameters, only: JPMODELMAX
+
+use mode_msg
+
+implicit none
+
private
-!
-public :: TYPEUNDEF, TYPEINT, TYPELOG, TYPEREAL, TYPECHAR, TYPEDATE
-public :: TFIELDDATA
-public :: TFIELDLIST
-public :: INI_FIELD_LIST
-public :: FIND_FIELD_ID_FROM_MNHNAME
-public :: ALLOC_FIELD_SCALARS
-public :: FIELDLIST_GOTO_MODEL
+
+public :: Ini_field_list
+public :: Find_field_id_from_mnhname
+public :: Alloc_field_scalars
+public :: Fieldlist_goto_model
public :: Fieldlist_nmodel_resize
-#endif
-!
-INTEGER,PARAMETER :: MAXFIELDS = 250
-INTEGER,PARAMETER :: TYPEUNDEF = -1, TYPEINT = 1, TYPELOG = 2, TYPEREAL = 3, TYPECHAR = 4, TYPEDATE = 5
-!
-TYPE TFIELDPTR_C0D
- CHARACTER(LEN=:), POINTER :: DATA => NULL()
-END TYPE TFIELDPTR_C0D
-!
-TYPE TFIELDPTR_C1D
- CHARACTER(LEN=:),DIMENSION(:),POINTER :: DATA => NULL()
-END TYPE TFIELDPTR_C1D
-!
-TYPE TFIELDPTR_L0D
- LOGICAL, POINTER :: DATA => NULL()
-END TYPE TFIELDPTR_L0D
-!
-TYPE TFIELDPTR_L1D
- LOGICAL,DIMENSION(:), POINTER :: DATA => NULL()
-END TYPE TFIELDPTR_L1D
-!
-TYPE TFIELDPTR_N0D
- INTEGER, POINTER :: DATA => NULL()
-END TYPE TFIELDPTR_N0D
-!
-TYPE TFIELDPTR_N1D
- INTEGER,DIMENSION(:), POINTER :: DATA => NULL()
-END TYPE TFIELDPTR_N1D
-!
-TYPE TFIELDPTR_N2D
- INTEGER,DIMENSION(:,:), POINTER :: DATA => NULL()
-END TYPE TFIELDPTR_N2D
-!
-TYPE TFIELDPTR_N3D
- INTEGER,DIMENSION(:,:,:),POINTER :: DATA => NULL()
-END TYPE TFIELDPTR_N3D
-!
-TYPE TFIELDPTR_X0D
- REAL, POINTER :: DATA => NULL()
-END TYPE TFIELDPTR_X0D
-!
-TYPE TFIELDPTR_X1D
- REAL,DIMENSION(:), POINTER :: DATA => NULL()
-END TYPE TFIELDPTR_X1D
-!
-TYPE TFIELDPTR_X2D
- REAL,DIMENSION(:,:), POINTER :: DATA => NULL()
-END TYPE TFIELDPTR_X2D
-!
-TYPE TFIELDPTR_X3D
- REAL,DIMENSION(:,:,:),POINTER :: DATA => NULL()
-END TYPE TFIELDPTR_X3D
-!
-TYPE TFIELDPTR_X4D
- REAL,DIMENSION(:,:,:,:),POINTER :: DATA => NULL()
-END TYPE TFIELDPTR_X4D
-!
-TYPE TFIELDPTR_X5D
- REAL,DIMENSION(:,:,:,:,:),POINTER :: DATA => NULL()
-END TYPE TFIELDPTR_X5D
-!
-TYPE TFIELDPTR_X6D
- REAL,DIMENSION(:,:,:,:,:,:),POINTER :: DATA => NULL()
-END TYPE TFIELDPTR_X6D
-!
-TYPE TFIELDPTR_T0D
- TYPE(DATE_TIME), POINTER :: DATA => NULL()
-END TYPE TFIELDPTR_T0D
-!
-TYPE TFIELDPTR_T1D
- TYPE(DATE_TIME), DIMENSION(:), POINTER :: DATA => NULL()
-END TYPE TFIELDPTR_T1D
-!
-!Structure describing the characteristics of a field
-TYPE TFIELDDATA
- CHARACTER(LEN=NMNHNAMELGTMAX) :: CMNHNAME = '' !Name of the field (for MesoNH, non CF convention)
- CHARACTER(LEN=NSTDNAMELGTMAX) :: CSTDNAME = '' !Standard name (CF convention)
- CHARACTER(LEN=32) :: CLONGNAME = '' !Long name (CF convention)
- CHARACTER(LEN=40) :: CUNITS = '' !Canonical units (CF convention)
- CHARACTER(LEN=2) :: CDIR = '' !Type of the data field (XX,XY,--...)
- CHARACTER(LEN=4) :: CLBTYPE = 'NONE' !Type of the lateral boundary (LBX,LBY,LBXU,LBYV)
- CHARACTER(LEN=100) :: CCOMMENT = '' !Comment (for MesoNH, non CF convention)
- INTEGER :: NGRID = NGRIDUNKNOWN !Localization on the model grid
- INTEGER :: NTYPE = TYPEUNDEF !Datatype
- INTEGER :: NDIMS = 0 !Number of dimensions
- LOGICAL :: LTIMEDEP = .FALSE. !Is the field time-dependent?
- !
-#if defined(MNH_IOCDF4)
- INTEGER :: NFILLVALUE = NF90_FILL_INT !Fill value for integer fields
- REAL :: XFILLVALUE = NF90_FILL_REAL !Fill value for real fields
- !NF90_FILL_REAL is the default fill value
- !used by netCDF to pre-fill real and also double
- !variables
-#else
- INTEGER :: NFILLVALUE = -2147483647 !Fill value for integer fields
- REAL :: XFILLVALUE = 9.9692099683868690e+36 !Fill value for real fields
-#endif
- INTEGER :: NVALIDMIN = -2147483646 !Minimum valid value for integer fields
- INTEGER :: NVALIDMAX = 2147483647 !Maximum valid value for integer fields
- REAL :: XVALIDMIN = -1.E36 !Minimum valid value for real fields
- REAL :: XVALIDMAX = 1.E36 !Maximum valid value for real fields
- !
- TYPE(TFIELDPTR_C0D),DIMENSION(:),ALLOCATABLE :: TFIELD_C0D !Pointer to the character string fields (one per nested mesh)
- TYPE(TFIELDPTR_C1D),DIMENSION(:),ALLOCATABLE :: TFIELD_C1D !Pointer to the character string 1D fields (one per nested mesh)
- !
- TYPE(TFIELDPTR_L0D),DIMENSION(:),ALLOCATABLE :: TFIELD_L0D !Pointer to the scalar logical fields (one per nested mesh)
- TYPE(TFIELDPTR_L1D),DIMENSION(:),ALLOCATABLE :: TFIELD_L1D !Pointer to the logical 1D fields (one per nested mesh)
- !
- TYPE(TFIELDPTR_N0D),DIMENSION(:),ALLOCATABLE :: TFIELD_N0D !Pointer to the scalar integer fields (one per nested mesh)
- TYPE(TFIELDPTR_N1D),DIMENSION(:),ALLOCATABLE :: TFIELD_N1D !Pointer to the integer 1D fields (one per nested mesh)
- TYPE(TFIELDPTR_N2D),DIMENSION(:),ALLOCATABLE :: TFIELD_N2D !Pointer to the integer 2D fields (one per nested mesh)
- TYPE(TFIELDPTR_N3D),DIMENSION(:),ALLOCATABLE :: TFIELD_N3D !Pointer to the integer 3D fields (one per nested mesh)
- !
- TYPE(TFIELDPTR_X0D),DIMENSION(:),ALLOCATABLE :: TFIELD_X0D !Pointer to the scalar real fields (one per nested mesh)
- TYPE(TFIELDPTR_X1D),DIMENSION(:),ALLOCATABLE :: TFIELD_X1D !Pointer to the real 1D fields (one per nested mesh)
- TYPE(TFIELDPTR_X2D),DIMENSION(:),ALLOCATABLE :: TFIELD_X2D !Pointer to the real 2D fields (one per nested mesh)
- TYPE(TFIELDPTR_X3D),DIMENSION(:),ALLOCATABLE :: TFIELD_X3D !Pointer to the real 3D fields (one per nested mesh)
- TYPE(TFIELDPTR_X4D),DIMENSION(:),ALLOCATABLE :: TFIELD_X4D !Pointer to the real 4D fields (one per nested mesh)
- TYPE(TFIELDPTR_X5D),DIMENSION(:),ALLOCATABLE :: TFIELD_X5D !Pointer to the real 5D fields (one per nested mesh)
- TYPE(TFIELDPTR_X6D),DIMENSION(:),ALLOCATABLE :: TFIELD_X6D !Pointer to the real 6D fields (one per nested mesh)
- !
- TYPE(TFIELDPTR_T0D),DIMENSION(:),ALLOCATABLE :: TFIELD_T0D !Pointer to the scalar date/time fields (one per nested mesh)
- TYPE(TFIELDPTR_T1D),DIMENSION(:),ALLOCATABLE :: TFIELD_T1D !Pointer to the date/time 1D fields (one per nested mesh)
-END TYPE TFIELDDATA
-!
-integer, save :: NMODEL_ALLOCATED
-LOGICAL, SAVE :: LFIELDLIST_ISINIT = .FALSE.
-TYPE(TFIELDDATA),DIMENSION(MAXFIELDS),SAVE :: TFIELDLIST
-!
-CONTAINS
-!
+public :: Ini_field_scalars
+
+contains
+
SUBROUTINE INI_FIELD_LIST(KMODEL)
! Modif
! J.Escobar 25/04/2018: missing def of FRC
@@ -5099,4 +4963,4 @@ nmodel_allocated = kmodelnew
end subroutine Fieldlist_nmodel_resize
-END MODULE MODE_FIELD
+end module mode_field
diff --git a/src/LIB/SURCOUCHE/src/mode_io_field_read.f90 b/src/LIB/SURCOUCHE/src/mode_io_field_read.f90
index 8f717bce0cda430ec8cb752eab038973db07b230..4f3904e3d8d404b917a10cd9672e0833a34aba12 100644
--- a/src/LIB/SURCOUCHE/src/mode_io_field_read.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io_field_read.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.
@@ -19,11 +19,12 @@
MODULE MODE_IO_FIELD_READ
!
+use modd_field
USE MODD_IO, ONLY : NVERB_FATAL,NVERB_ERROR,NVERB_WARNING,NVERB_INFO,NVERB_DEBUG,TFILEDATA
USE MODD_MPIF
use modd_precision, only: MNHINT_MPI, MNHLOG_MPI, MNHREAL_MPI, MNHTIME
!
-USE MODE_FIELD
+use mode_field, only: Find_field_id_from_mnhname
USE MODE_IO_READ_LFI
#if defined(MNH_IOCDF4)
USE MODE_IO_READ_NC4
diff --git a/src/LIB/SURCOUCHE/src/mode_io_field_write.f90 b/src/LIB/SURCOUCHE/src/mode_io_field_write.f90
index 16d5f2988ed57c27d4dce7e3ee91d71006ae5735..1f02a2694aabd0ec0e22f4e69209b440d8ddf990 100644
--- a/src/LIB/SURCOUCHE/src/mode_io_field_write.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io_field_write.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.
@@ -19,12 +19,13 @@
MODULE MODE_IO_FIELD_WRITE
+ use modd_field, only: tfielddata, tfieldlist, TYPECHAR, TYPEDATE, TYPEINT, TYPELOG, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA, TOUTBAK
USE MODD_MPIF
use modd_parameters, only: NMNHNAMELGTMAX
use modd_precision, only: MNHINT_MPI, MNHREAL_MPI, MNHTIME
- USE MODE_FIELD
+ use mode_field, only: Find_field_id_from_mnhname
USE MODE_IO_WRITE_LFI
#if defined(MNH_IOCDF4)
USE MODE_IO_WRITE_NC4
diff --git a/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 b/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90
index 4e6bce3f26e7f74836495171a3da9dcab91a5e6b..3beae194e79cd286494ed66c91f4aa40b070aa27 100644
--- a/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2016-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2016-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.
@@ -41,13 +41,15 @@ USE MODD_CONF
USE MODD_CONF_n
USE MODD_DYN, ONLY : XSEGLEN
USE MODD_DYN_n, ONLY : DYN_MODEL
+use modd_field, only: tfieldlist
USE MODD_IO_SURF_MNH,ONLY : IO_SURF_MNH_MODEL
USE MODD_NESTING, ONLY : CDAD_NAME,NDAD
USE MODD_NSV, ONLY: NSV
USE MODD_OUT_n, ONLY : OUT_MODEL
USE MODD_VAR_ll, ONLY : IP
-USE MODE_FIELD
-!
+
+use mode_field, only: Find_field_id_from_mnhname
+
IMPLICIT NONE
!
INTEGER, INTENT(IN) :: KSUP ! supp. time steps
diff --git a/src/LIB/SURCOUCHE/src/mode_io_read_lfi.f90 b/src/LIB/SURCOUCHE/src/mode_io_read_lfi.f90
index 01b03897d2134c902a7b0aa0c1384771bdc04557..6d2990d35e90f959b84c5ed7430ac6aa7c4f72c9 100644
--- a/src/LIB/SURCOUCHE/src/mode_io_read_lfi.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io_read_lfi.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.
@@ -13,11 +13,11 @@
!-----------------------------------------------------------------
module mode_io_read_lfi
!
+use modd_field, only: tfielddata
USE MODD_IO
USE MODD_PARAMETERS, ONLY: NLFIMAXCOMMENTLENGTH
use modd_precision, only: LFIINT
!
-USE MODE_FIELD, ONLY : TFIELDDATA
USE MODE_MSG
!
IMPLICIT NONE
diff --git a/src/LIB/SURCOUCHE/src/mode_io_read_nc4.f90 b/src/LIB/SURCOUCHE/src/mode_io_read_nc4.f90
index 75e142d20f6469336fb3ec89e106d833b43b13aa..ed9e0833eeb74c12365adccc7304821de1d57498 100644
--- a/src/LIB/SURCOUCHE/src/mode_io_read_nc4.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io_read_nc4.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.
@@ -17,10 +17,10 @@
#if defined(MNH_IOCDF4)
module mode_io_read_nc4
+use modd_field, only: tfielddata
use modd_io, only: tfiledata
use modd_precision, only: CDFINT
-use mode_field, only: tfielddata
use mode_io_tools_nc4, only: IO_Mnhname_clean, IO_Err_handle_nc4
use mode_msg
diff --git a/src/LIB/SURCOUCHE/src/mode_io_tools.f90 b/src/LIB/SURCOUCHE/src/mode_io_tools.f90
index 425cc472a6be44232fd8b03fca41c2c295c382a0..42236655f7c00e3db69c6574f122cc343db0ff7e 100644
--- a/src/LIB/SURCOUCHE/src/mode_io_tools.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io_tools.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.
@@ -103,7 +103,8 @@ contains
subroutine IO_Mnhversion_get(tpfile)
!Compare MNHVERSION of file with current version and store it in file metadata
use modd_conf, only: nmnhversion
- use mode_field, only: tfielddata,typeint
+ use modd_field, only: tfielddata, TYPEINT
+
use mode_io_field_read, only: IO_Field_read
type(tfiledata), intent(inout) :: tpfile
diff --git a/src/LIB/SURCOUCHE/src/mode_io_tools_nc4.f90 b/src/LIB/SURCOUCHE/src/mode_io_tools_nc4.f90
index 2be340eafd509639e7f2385f1c2f05f543e666ab..cd5b228fea615e4864956c47f50ef0c2b90f4eb5 100644
--- a/src/LIB/SURCOUCHE/src/mode_io_tools_nc4.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io_tools_nc4.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.
@@ -15,11 +15,11 @@
#if defined(MNH_IOCDF4)
module mode_io_tools_nc4
+use modd_field, only: tfielddata
use modd_io, only: tfiledata
use modd_netcdf, only: dimcdf, iocdf, tdim_dummy
use modd_precision, only: CDFINT
-use mode_field, only: tfielddata
use mode_msg
use NETCDF, only: NF90_NOERR, NF90_UNLIMITED, &
@@ -69,7 +69,7 @@ END SUBROUTINE IO_Dim_find_byname_nc4
SUBROUTINE IO_Dimids_guess_nc4(TPFILE, TPFIELD, KLEN, TPDIMS, KRESP)
!
-USE MODE_FIELD, ONLY: TYPECHAR
+USE MODD_FIELD, ONLY: TYPECHAR
!
!Used by LFI2CDF
TYPE(TFILEDATA), INTENT(IN) :: TPFILE
diff --git a/src/LIB/SURCOUCHE/src/mode_io_write_lfi.f90 b/src/LIB/SURCOUCHE/src/mode_io_write_lfi.f90
index 2e56fdc99dbd30f9e7f3359efaec87e1d29e02b9..bb455523bfe775157dca0e8dd00ac64f3510b895 100644
--- a/src/LIB/SURCOUCHE/src/mode_io_write_lfi.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io_write_lfi.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.
@@ -13,11 +13,11 @@
!-----------------------------------------------------------------
module mode_io_write_lfi
!
+use modd_field, only: tfielddata
USE MODD_IO
USE MODD_PARAMETERS, ONLY: NLFIMAXCOMMENTLENGTH
use modd_precision, only: LFIINT
!
-USE MODE_FIELD, ONLY: TFIELDDATA
USE MODE_MSG
!
IMPLICIT NONE
diff --git a/src/LIB/SURCOUCHE/src/mode_io_write_nc4.f90 b/src/LIB/SURCOUCHE/src/mode_io_write_nc4.f90
index 0197ed559bd919b33a25f5afcfc5452e263018c9..7fa766ccd96a2c9fd729efe0267a839efb40c242 100644
--- a/src/LIB/SURCOUCHE/src/mode_io_write_nc4.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io_write_nc4.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.
@@ -21,11 +21,11 @@
#ifdef MNH_IOCDF4
module mode_io_write_nc4
+use modd_field, only: tfielddata
use modd_io, only: gsmonoproc, tfiledata
use modd_netcdf, only: dimcdf, iocdf
use modd_precision, only: CDFINT, MNHINT_NF90, MNHREAL_MPI, MNHREAL_NF90
-use mode_field, only: tfielddata
use mode_io_tools_nc4, only: IO_Mnhname_clean, IO_Vdims_fill_nc4, IO_Dimcdf_get_nc4, IO_Strdimid_get_nc4, IO_Err_handle_nc4
use mode_msg
@@ -62,9 +62,9 @@ integer(kind=CDFINT),parameter :: DEFLATE = 1
contains
subroutine IO_Field_header_split_write_nc4( tpfile, tpfield, knblocks )
-use modd_parameters, only : jphext
+use modd_field, only: TYPEREAL
+use modd_parameters, only: jphext
-use mode_field, only: TYPEREAL
use mode_tools_ll, only: Get_globaldims_ll
type(tfiledata), intent(in) :: tpfile
@@ -151,8 +151,7 @@ SUBROUTINE IO_Field_attr_write_nc4(TPFILE,TPFIELD,KVARID,OEXISTED,KSHAPE,HCALEND
!
USE MODD_CONF, ONLY: CPROGRAM, LCARTESIAN
USE MODD_CONF_n, ONLY: CSTORAGE_TYPE
-!
-USE MODE_FIELD, ONLY: TYPEINT, TYPEREAL
+use modd_field, only: TYPEINT, TYPEREAL
!
TYPE(TFILEDATA), INTENT(IN) :: TPFILE
TYPE(TFIELDDATA), INTENT(IN) :: TPFIELD
@@ -1620,12 +1619,13 @@ END SUBROUTINE IO_Field_write_nc4_T1
SUBROUTINE IO_Coordvar_write_nc4(TPFILE,HPROGRAM_ORIG)
USE MODD_CONF, ONLY: CPROGRAM, LCARTESIAN
USE MODD_CONF_n, ONLY: CSTORAGE_TYPE
+use modd_field, only: tfieldlist
USE MODD_GRID, ONLY: XLATORI, XLONORI
USE MODD_GRID_n, ONLY: LSLEVE, XXHAT, XYHAT, XZHAT
use modd_netcdf, only: dimcdf
USE MODD_PARAMETERS, ONLY: JPHEXT, JPVEXT
-USE MODE_FIELD, ONLY: TFIELDLIST,FIND_FIELD_ID_FROM_MNHNAME
+use mode_field, only: Find_field_id_from_mnhname
USE MODE_GRIDPROJ
USE MODE_NEST_ll, ONLY: GET_MODEL_NUMBER_ll, GO_TOMODEL_ll
@@ -2082,11 +2082,12 @@ SUBROUTINE WRITE_VER_COORD(TDIM,HLONGNAME,HSTDNAME,HCOMPNAME,PSHIFT,KBOUNDLOW,KB
END SUBROUTINE WRITE_VER_COORD
SUBROUTINE WRITE_TIME_COORD(TDIM)
+ use modd_field, only: tfieldlist
USE MODD_TIME_n, ONLY: TDTMOD, TDTCUR
USE MODD_TYPE_DATE
USE MODE_DATETIME
- USE MODE_FIELD, ONLY: TFIELDLIST,FIND_FIELD_ID_FROM_MNHNAME
+ use mode_field, only: Find_field_id_from_mnhname
USE MODE_GRIDPROJ
TYPE(DIMCDF), POINTER, INTENT(IN) :: TDIM
diff --git a/src/MNH/advection_metsv.f90 b/src/MNH/advection_metsv.f90
index 082a3851674ada94473f8f85226d77c26f9cb3f0..c57da30e6eefc4fc39c737020950069045ae390e 100644
--- a/src/MNH/advection_metsv.f90
+++ b/src/MNH/advection_metsv.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.
@@ -146,6 +146,7 @@ USE MODD_BUDGET
USE MODD_CST
USE MODD_CTURB, ONLY: XTKEMIN
USE MODD_CONF, ONLY: LNEUTRAL,NHALO,L1D, L2D
+use modd_field, only: tfielddata, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
USE MODD_LUNIT_n, ONLY: TLUOUT
USE MODD_PARAM_n
@@ -154,7 +155,6 @@ USE MODD_BLOWSNOW
USE MODD_BLOWSNOW_n
USE MODD_PARAMETERS
!
-USE MODE_FIELD, ONLY: TFIELDDATA, TYPEREAL
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
USE MODE_ll
USE MODE_MSG
diff --git a/src/MNH/c2r2_adjust.f90 b/src/MNH/c2r2_adjust.f90
index ebbdb572f619806fb953f9e65161d021251fb61b..124d83e2e845d1dafcbd1041b40a519551408c96 100644
--- a/src/MNH/c2r2_adjust.f90
+++ b/src/MNH/c2r2_adjust.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.
@@ -151,7 +151,7 @@ USE MODD_LUNIT_n, ONLY: TLUOUT
USE MODD_NSV, ONLY: NSV_C2R2BEG
USE MODD_PARAMETERS
!
-USE MODE_FIELD
+USE MODD_FIELD, only: tfielddata, TYPEREAL
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
USE MODE_MSG
!
diff --git a/src/MNH/call_rttov11.f90 b/src/MNH/call_rttov11.f90
index 254bc976c84de483419ce3623ca315b8bbc96a90..c4eb7ea2c9a4744f079f982cc3787edbe180b4a4 100644
--- a/src/MNH/call_rttov11.f90
+++ b/src/MNH/call_rttov11.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2003-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2003-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.
@@ -102,7 +102,6 @@ USE MODN_CONF
USE MODI_DETER_ANGLE
USE MODI_PINTER
!
-USE MODE_FIELD
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
USE MODE_ll
USE MODE_MSG
diff --git a/src/MNH/call_rttov8.f90 b/src/MNH/call_rttov8.f90
index 6180ec0f976c350520fcea3c780c413ffedcef51..946021f408ea475fedeb5baeea3d2576a05df475 100644
--- a/src/MNH/call_rttov8.f90
+++ b/src/MNH/call_rttov8.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2003-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2003-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.
@@ -104,7 +104,6 @@ USE MODD_RAD_TRANSF
USE MODI_DETER_ANGLE
USE MODI_PINTER
!
-USE MODE_FIELD
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
USE MODE_ll
USE MODE_MSG
diff --git a/src/MNH/compare_dad.f90 b/src/MNH/compare_dad.f90
index 4efd6a8f42c57b2b6a6e606bbdd3f4fba22d9ebe..fe145cee49c3dc81433344f9e26cebddcc46f57c 100644
--- a/src/MNH/compare_dad.f90
+++ b/src/MNH/compare_dad.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2004-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2004-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.
@@ -66,11 +66,12 @@ END MODULE MODI_COMPARE_DAD
!
!
USE MODD_CONF
+use modd_field, only: tfielddata, tfieldlist
USE MODD_IO, ONLY: TFILEDATA
USE MODD_LUNIT_n, ONLY: TLUOUT
USE MODD_PARAMETERS, ONLY: JPHEXT, JPVEXT, NMNHNAMELGTMAX
!
-USE MODE_FIELD, ONLY: TFIELDDATA,TFIELDLIST,FIND_FIELD_ID_FROM_MNHNAME
+use mode_field, only: Find_field_id_from_mnhname
USE MODE_IO_FILE, only: IO_File_close, IO_File_open
USE MODE_IO_FIELD_READ, only: IO_Field_read
USE MODE_GRIDPROJ
diff --git a/src/MNH/compute_r00.f90 b/src/MNH/compute_r00.f90
index 326ad848a66ed48e11a8d2e72c33669d74e77d53..855c8370861141e3424b9c672d3d0e4122d1a3b9 100644
--- a/src/MNH/compute_r00.f90
+++ b/src/MNH/compute_r00.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.
@@ -65,6 +65,7 @@ END MODULE MODI_COMPUTE_R00
!
USE MODD_CONF
USE MODD_GRID_n
+use modd_field, only: tfielddata, TYPEREAL
USE MODD_FIELD_n
USE MODD_IO, ONLY: TFILEDATA
USE MODD_LUNIT_n
@@ -74,7 +75,6 @@ USE MODD_STO_FILE
USE MODD_TYPE_DATE
USE MODD_VAR_ll
!
-USE MODE_FIELD
USE MODE_IO_FIELD_READ, only: IO_Field_read
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
USE MODE_IO_FILE, only: IO_File_close, IO_File_open
diff --git a/src/MNH/eddyUV_flux_one_wayn.f90 b/src/MNH/eddyUV_flux_one_wayn.f90
index 1e8e7c51314655f7e99de4252bd3562d2722878f..e6cae0cb995d7ee6cd62aa4fb0fc074ddc764496 100644
--- a/src/MNH/eddyUV_flux_one_wayn.f90
+++ b/src/MNH/eddyUV_flux_one_wayn.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2011-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2011-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.
@@ -56,21 +56,21 @@ END MODULE MODI_EDDYUV_FLUX_ONE_WAY_n
!!
! ##################################################################################
!
+USE MODD_BIKHARDT_n
USE MODD_DEF_EDDYUV_FLUX_n
-USE MODD_FIELD_n, ONLY:XRVS
+use modd_field, only: tfieldlist
+USE MODD_FIELD_n, ONLY: XRVS
USE MODD_GRID_n
-USE MODD_REF_n, ONLY:XRHODJ
-
USE MODD_METRICS_n
-USE MODI_GRADIENT_U
-!
-USE MODD_BIKHARDT_n
USE MODD_NESTING
-!
+USE MODD_REF_n, ONLY: XRHODJ
+
use mode_bikhardt
-USE MODE_FIELD, ONLY : TFIELDLIST, FIND_FIELD_ID_FROM_MNHNAME
-use mode_tools_ll, only: GET_INDICE_ll
-!
+use mode_field, only: Find_field_id_from_mnhname
+use mode_tools_ll, only: GET_INDICE_ll
+
+USE MODI_GRADIENT_U
+
IMPLICIT NONE
!
INTEGER, INTENT(IN) :: KMI ! Model index
diff --git a/src/MNH/eddy_flux_one_wayn.f90 b/src/MNH/eddy_flux_one_wayn.f90
index 31549eab9eb22dbfa862d9b69f72cbf091c58ee5..14b7d035b08df04c37c8f162499a8c1e4ac67962 100644
--- a/src/MNH/eddy_flux_one_wayn.f90
+++ b/src/MNH/eddy_flux_one_wayn.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2011-2018 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2011-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.
@@ -56,21 +56,21 @@ END MODULE MODI_EDDY_FLUX_ONE_WAY_n
!!
! ##################################################################################
!
+USE MODD_BIKHARDT_n
USE MODD_DEF_EDDY_FLUX_n
-USE MODD_FIELD_n, ONLY:XRTHS
-USE MODD_REF_n, ONLY:XRHODJ
+use modd_field, only: tfieldlist
+USE MODD_FIELD_n, ONLY: XRTHS
USE MODD_GRID_n
-
USE MODD_METRICS_n
-USE MODI_GRADIENT_W
-USE MODI_GRADIENT_U
-!
-USE MODD_BIKHARDT_n
USE MODD_NESTING
-!
+USE MODD_REF_n, ONLY: XRHODJ
+
use mode_bikhardt
-USE MODE_FIELD, ONLY : TFIELDLIST, FIND_FIELD_ID_FROM_MNHNAME
-!
+use mode_field, only: Find_field_id_from_mnhname
+
+USE MODI_GRADIENT_W
+USE MODI_GRADIENT_U
+
IMPLICIT NONE
!
INTEGER, INTENT(IN) :: KMI ! Model index
diff --git a/src/MNH/free_atm_profile.f90 b/src/MNH/free_atm_profile.f90
index 631577f0f97398c35903ce6ca4b07a7c6645e944..50496da72b87d003764faf82a65a856daf128c84 100644
--- a/src/MNH/free_atm_profile.f90
+++ b/src/MNH/free_atm_profile.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1997-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1997-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.
@@ -93,13 +93,13 @@ END MODULE MODI_FREE_ATM_PROFILE
! ------------
!
USE MODD_CONF
+use modd_field, only: tfielddata, TYPEINT, TYPEREAL
USE MODD_GRID_n
USE MODD_IO, ONLY: TFILEDATA
USE MODD_LUNIT, ONLY: TLUOUT0
USE MODD_PARAMETERS
USE MODD_VER_INTERP_LIN
!
-USE MODE_FIELD, ONLY: TFIELDDATA, TYPEINT, TYPEREAL
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
USE MODE_MPPDB
!
diff --git a/src/MNH/goto_model_wrapper.f90 b/src/MNH/goto_model_wrapper.f90
index 8774b548f230f23bd8ac2e48bfed340df491a843..950d731b8edcb3f46b7512f56438d59c3c615ce9 100644
--- a/src/MNH/goto_model_wrapper.f90
+++ b/src/MNH/goto_model_wrapper.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1994-2018 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.
@@ -117,7 +117,8 @@ USE MODD_ADVFRC_n
!
USE MODD_CH_PRODLOSSTOT_n
USE MODD_CH_BUDGET_n
-USE MODE_FIELD
+!
+use mode_field, only: Fieldlist_goto_model
use mode_msg
!
IMPLICIT NONE
diff --git a/src/MNH/ini_aircraft_balloon.f90 b/src/MNH/ini_aircraft_balloon.f90
index 42f1e14a0058469707fac9c550e8f98320467874..e098bed2d165f00a60275766b01c88dc760111bf 100644
--- a/src/MNH/ini_aircraft_balloon.f90
+++ b/src/MNH/ini_aircraft_balloon.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2000-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2000-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.
@@ -85,13 +85,13 @@ USE MODD_AIRCRAFT_BALLOON
USE MODD_CONF
USE MODD_DIAG_FLAG
USE MODD_DYN_n
+use modd_field, only: tfielddata, TYPEREAL
USE MODD_GRID
USE MODD_IO, ONLY: TFILEDATA
USE MODD_LUNIT_n, ONLY: TLUOUT
USE MODD_PARAM_n, ONLY: CCLOUD
USE MODD_PARAMETERS
!
-USE MODE_FIELD, ONLY: TFIELDDATA, TYPEREAL
USE MODE_GRIDPROJ
USE MODE_ll
USE MODE_MODELN_HANDLER
diff --git a/src/MNH/ini_deep_convection.f90 b/src/MNH/ini_deep_convection.f90
index 6934822e30ae38736c76608ebbe4d9008be92eff..f4747410b9019c4081bb7335cd217cd6b0fb68ea 100644
--- a/src/MNH/ini_deep_convection.f90
+++ b/src/MNH/ini_deep_convection.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1996-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1996-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.
@@ -120,6 +120,7 @@ USE MODD_CH_M9_n, ONLY: CNAMES
USE MODD_CONVPAR
USE MODD_DUST, ONLY: CDUSTNAMES
USE MODD_ELEC_DESCR, ONLY: CELECNAMES
+use modd_field, only: tfielddata, tfieldlist, TYPEREAL
USE MODD_ICE_C1R3_DESCR, ONLY: C1R3NAMES
USE MODD_IO, ONLY: TFILEDATA
USE MODD_LG, ONLY: CLGNAMES
@@ -132,7 +133,7 @@ USE MODD_RAIN_C2R2_DESCR, ONLY: C2R2NAMES
USE MODD_SALT, ONLY: CSALTNAMES
USE MODD_TIME
!
-USE MODE_FIELD
+use mode_field, only: Find_field_id_from_mnhname
USE MODE_IO_FIELD_READ, only: IO_Field_read
USE MODE_TOOLS, ONLY: UPCASE
!
diff --git a/src/MNH/ini_lb.f90 b/src/MNH/ini_lb.f90
index 79fff80584ca80575e8a9298452aac79620a63a0..b4d44b50adff30ff2ee57769d3b6be3bbbceba63 100644
--- a/src/MNH/ini_lb.f90
+++ b/src/MNH/ini_lb.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1998-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1998-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.
@@ -145,6 +145,7 @@ USE MODD_CTURB
USE MODD_CONF
USE MODD_DUST
USE MODD_ELEC_DESCR, ONLY: CELECNAMES
+use modd_field, only: tfielddata, TYPELOG, TYPEREAL
USE MODD_ICE_C1R3_DESCR, ONLY: C1R3NAMES
USE MODD_IO, ONLY: TFILEDATA
USE MODD_LG, ONLY: CLGNAMES
@@ -158,7 +159,6 @@ USE MODD_PARAM_n
USE MODD_RAIN_C2R2_DESCR, ONLY: C2R2NAMES
USE MODD_SALT
!
-USE MODE_FIELD, ONLY: TFIELDDATA,TYPELOG,TYPEREAL
USE MODE_IO_FIELD_READ, only: IO_Field_read, IO_Field_read_lb
USE MODE_MSG
USE MODE_TOOLS, ONLY: UPCASE
diff --git a/src/MNH/ini_prog_var.f90 b/src/MNH/ini_prog_var.f90
index 7f9e33802c3d1f812783407aba724084078871ac..ecebea9fc28ff34e0c64fa34e1a089bcf0f3131c 100644
--- a/src/MNH/ini_prog_var.f90
+++ b/src/MNH/ini_prog_var.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.
@@ -109,6 +109,7 @@ USE MODD_CONF_n
USE MODD_DIM_n
USE MODD_DUST
USE MODD_DYN_n
+use modd_field, only: TFIELDDATA, TYPEREAL
USE MODD_FIELD_n
USE MODD_IO, ONLY: TFILEDATA
USE MODD_LSFIELD_n
@@ -120,7 +121,6 @@ USE MODD_PARAMETERS
USE MODD_SALT
USE MODD_TURB_n
!
-USE MODE_FIELD, ONLY: TFIELDDATA, TYPEREAL
USE MODE_IO_FIELD_READ, only: IO_Field_read
USE MODE_IO_FILE, ONLY: IO_File_close, IO_File_open
USE MODE_IO_MANAGE_STRUCT, ONLY: IO_File_add2list
diff --git a/src/MNH/ini_segn.f90 b/src/MNH/ini_segn.f90
index 1011b72700764cd6c65d9bc1ab2d183a2248b905..e0819946a423f1d3026e954ffd933dadeafd362f 100644
--- a/src/MNH/ini_segn.f90
+++ b/src/MNH/ini_segn.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.
@@ -180,7 +180,7 @@ USE MODD_PARAM_n, ONLY: CSURF
USE MODD_PARAMETERS
USE MODD_REF, ONLY: LBOUSS
!
-USE MODE_FIELD
+use mode_field, only: Fieldlist_nmodel_resize, Ini_field_list, Ini_field_scalars
USE MODE_IO_FIELD_READ, only: IO_Field_read
USE MODE_IO_FILE, ONLY: IO_File_close, IO_File_open
USE MODE_IO, only: IO_Config_set
diff --git a/src/MNH/ini_size_spawn.f90 b/src/MNH/ini_size_spawn.f90
index ee52cc7b68825da6ae3270e567c7a01007378490..0de2efdb4672b8e4e1402330d51dea5d6b759cb4 100644
--- a/src/MNH/ini_size_spawn.f90
+++ b/src/MNH/ini_size_spawn.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1999-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1999-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.
@@ -78,6 +78,7 @@ END MODULE MODI_INI_SIZE_SPAWN
USE MODD_CONF
USE MODD_DIM_n, ONLY: DIM_MODEL
USE MODD_DYN_n, ONLY: CPRESOPT, NITR
+use modd_field, only: tfielddata, tfieldlist
USE MODD_GRID
USE MODD_GRID_n
USE MODD_IO, ONLY: ISNPROC, ISP, TFILEDATA
@@ -89,7 +90,7 @@ USE MODD_PGDGRID
USE MODD_SPAWN
USE MODD_VAR_ll, ONLY: YSPLITTING
!
-USE MODE_FIELD, ONLY: TFIELDDATA,TFIELDLIST,FIND_FIELD_ID_FROM_MNHNAME
+use mode_field, only: Find_field_id_from_mnhname
USE MODE_GRIDPROJ
USE MODE_IO_FIELD_READ, only: IO_Field_read
USE MODE_IO_FILE, only: IO_File_close, IO_File_open
diff --git a/src/MNH/ini_surf_rad.f90 b/src/MNH/ini_surf_rad.f90
index a6c4934e7a32a5926d90601e893a7ecf0a7eb62d..be7c6f342153a6991a14bc8e03b3cc5465b409ba 100644
--- a/src/MNH/ini_surf_rad.f90
+++ b/src/MNH/ini_surf_rad.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2003-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2003-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.
@@ -63,9 +63,10 @@ END MODULE MODI_INI_SURF_RAD
!* 0. DECLARATIONS
! ------------
!
+use modd_field, only: tfielddata, tfieldlist
USE MODD_IO, ONLY: TFILEDATA
!
-USE MODE_FIELD, ONLY: FIND_FIELD_ID_FROM_MNHNAME, TFIELDDATA, TFIELDLIST
+use mode_field, only: Find_field_id_from_mnhname
USE MODE_IO_FIELD_READ, only: IO_Field_read
USE MODE_MSG
!
diff --git a/src/MNH/init_for_convlfi.f90 b/src/MNH/init_for_convlfi.f90
index 733aa93ca7bbeb0deb5e0cb40c82c58edbeea179..e5ddc0d3e2d7b9a01f1c6ce77032f894adc7d0a5 100644
--- a/src/MNH/init_for_convlfi.f90
+++ b/src/MNH/init_for_convlfi.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.
@@ -71,6 +71,7 @@ USE MODD_PARAMETERS
USE MODD_CONF
USE MODD_CST
USE MODD_DIM_n
+use modd_field, only: tfielddata, tfieldlist
USE MODD_FIELD_n
USE MODD_GRID
USE MODD_GRID_n
@@ -79,20 +80,17 @@ USE MODD_TIME
USE MODD_TIME_n
USE MODD_VAR_ll, ONLY: NPROC
!
-USE MODE_FIELD, ONLY: TFIELDDATA, TFIELDLIST, FIND_FIELD_ID_FROM_MNHNAME
-USE MODE_TIME
-USE MODE_GRIDPROJ
-USE MODE_GRIDCART
-!
+use mode_field, only: Find_field_id_from_mnhname
USE MODE_GATHER_ll
+USE MODE_GRIDCART
+USE MODE_GRIDPROJ
USE MODE_IO, only: IO_Pack_set
USE MODE_IO_FIELD_READ, only: IO_Field_read
USE MODE_ll
+USE MODE_SPLITTINGZ_ll
+USE MODE_TIME
!
USE MODI_INI_CST
-!JUANZ
-USE MODE_SPLITTINGZ_ll
-!JUANZ
!
IMPLICIT NONE
!
diff --git a/src/MNH/init_ground_paramn.f90 b/src/MNH/init_ground_paramn.f90
index f8e37bd5ae848f9c2b7666495657cc0d07044935..ab38093a91a8ed15fc7aaf8827a32865388c0c10 100644
--- a/src/MNH/init_ground_paramn.f90
+++ b/src/MNH/init_ground_paramn.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2003-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2003-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.
@@ -74,10 +74,11 @@ END MODULE MODI_INIT_GROUND_PARAM_n
! ------------
!
USE MODE_DATETIME
-USE MODE_FIELD
+use mode_field, only: Find_field_id_from_mnhname
USE MODE_ll
!
USE MODD_DYN_n, ONLY : NSTOP, XTSTEP
+use modd_field, only: TFIELDLIST
USE MODD_REF_n, ONLY : XRHODREF
USE MODD_CH_M9_n, ONLY : CNAMES
USE MODD_NSV
diff --git a/src/MNH/init_mnh.f90 b/src/MNH/init_mnh.f90
index 18c169617e3fd0f4846661872b102ea4f03de648..7b7d49a3aa77d54df4e93992845fcadb816821c2 100644
--- a/src/MNH/init_mnh.f90
+++ b/src/MNH/init_mnh.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.
@@ -84,7 +84,7 @@ USE MODD_LUNIT_n
USE MODD_MNH_SURFEX_n
USE MODD_PARAMETERS
!
-USE MODE_FIELD
+use mode_field, only: Alloc_field_scalars, Fieldlist_goto_model
USE MODE_IO_FILE, ONLY: IO_File_open
USE MODE_IO_MANAGE_STRUCT, ONLY: IO_File_add2list
USE MODE_ll
diff --git a/src/MNH/khko_notadjust.f90 b/src/MNH/khko_notadjust.f90
index 533ed78e72a7074accfdc2afa5df7a4a368019d1..6b1aa32df6782a82412b5e4fb5ae2c731e2c164a 100644
--- a/src/MNH/khko_notadjust.f90
+++ b/src/MNH/khko_notadjust.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2013-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2013-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.
@@ -100,6 +100,7 @@ END MODULE MODI_KHKO_NOTADJUST
USE MODD_BUDGET
USE MODD_CONF
USE MODD_CST
+use modd_field, only: TFIELDDATA,TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
USE MODD_LUNIT_n, ONLY: TLUOUT
USE MODD_NSV, ONLY: NSV_C2R2BEG
@@ -107,7 +108,6 @@ USE MODD_PARAMETERS
USE MODD_RAIN_C2R2_DESCR, ONLY: XRTMIN
!
-USE MODE_FIELD, ONLY: TFIELDDATA,TYPEREAL
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
USE MODE_MSG
use mode_tools, only: Countjv
diff --git a/src/MNH/lima_adjust.f90 b/src/MNH/lima_adjust.f90
index 4b2056f2041e1b45ffe98c892b4f5cee2fe5d33d..f460701f2c319c234bbe50357592392a0ade6c4d 100644
--- a/src/MNH/lima_adjust.f90
+++ b/src/MNH/lima_adjust.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2013-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2013-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.
@@ -146,6 +146,7 @@ END MODULE MODI_LIMA_ADJUST
USE MODD_BUDGET
USE MODD_CONF
USE MODD_CST
+use modd_field, only: TFIELDDATA, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
USE MODD_LUNIT_n, ONLY: TLUOUT
USE MODD_NSV
@@ -155,7 +156,6 @@ USE MODD_PARAM_LIMA_COLD
USE MODD_PARAM_LIMA_MIXED
USE MODD_PARAM_LIMA_WARM
!
-USE MODE_FIELD, ONLY: TFIELDDATA, TYPEREAL
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
use mode_msg
use mode_tools, only: Countjv
diff --git a/src/MNH/lima_ccn_activation.f90 b/src/MNH/lima_ccn_activation.f90
index 211fbd35f53472766670fcec4fd26ae627f67a26..f7ef813095a0e02ac59946c7093d8bd3df2f251c 100644
--- a/src/MNH/lima_ccn_activation.f90
+++ b/src/MNH/lima_ccn_activation.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2013-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2013-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.
@@ -97,6 +97,7 @@ END MODULE MODI_LIMA_CCN_ACTIVATION
! ------------
!
USE MODD_CST, ONLY: XALPW, XBETAW, XCL, XCPD, XCPV, XGAMW, XLVTT, XMD, XMV, XRV, XTT
+use modd_field, only: TFIELDDATA, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
USE MODD_LUNIT_n, ONLY: TLUOUT
USE MODD_PARAMETERS, ONLY: JPHEXT, JPVEXT
@@ -104,7 +105,6 @@ USE MODD_PARAM_LIMA, ONLY: LACTIT, NMOD_CCN, XKHEN_MULTI, XCTMIN, XLIMIT_FA
USE MODD_PARAM_LIMA_WARM, ONLY: XWMIN, NAHEN, NHYP, XAHENINTP1, XAHENINTP2, XCSTDCRIT, XHYPF12, &
XHYPINTP1, XHYPINTP2, XTMIN, XHYPF32, XPSI3, XAHENG, XPSI1
-USE MODE_FIELD, ONLY: TFIELDDATA, TYPEREAL
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
use mode_tools, only: Countjv
diff --git a/src/MNH/lima_warm_nucl.f90 b/src/MNH/lima_warm_nucl.f90
index 3cd2f705228d3a81608c24308e85cfefe259cd9e..4bfbe6f8ccb07aed3271cdfd769d848ab81bfc13 100644
--- a/src/MNH/lima_warm_nucl.f90
+++ b/src/MNH/lima_warm_nucl.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2013-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2013-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.
@@ -112,13 +112,13 @@ END MODULE MODI_LIMA_WARM_NUCL
! ------------
!
USE MODD_CST
+use modd_field, only: TFIELDDATA, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
USE MODD_LUNIT_n, ONLY: TLUOUT
USE MODD_PARAMETERS, ONLY : JPHEXT, JPVEXT
USE MODD_PARAM_LIMA
USE MODD_PARAM_LIMA_WARM
-USE MODE_FIELD, ONLY: TFIELDDATA, TYPEREAL
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
use mode_tools, only: Countjv
diff --git a/src/MNH/menu_diachro.f90 b/src/MNH/menu_diachro.f90
index 01291bbee3f89f6d6c8822f5c55f8f62668fa1d5..78a452deace16ec6bafab3c9302e575877b6bde5 100644
--- a/src/MNH/menu_diachro.f90
+++ b/src/MNH/menu_diachro.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1996-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1996-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.
@@ -63,9 +63,10 @@ contains
! ------------
!
USE MODD_CONF
+use modd_field, only: tfielddata, TYPEINT
USE MODD_IO, only: TFILEDATA
+use modd_parameters, only: NMNHNAMELGTMAX
!
-USE MODE_FIELD
USE MODE_IO_FIELD_READ, only: IO_Field_read
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
!
diff --git a/src/MNH/paspol.f90 b/src/MNH/paspol.f90
index 1a2146b66e5f3b71efebaed0305508bf6888b345..e214de60144c967b3d356aa504ec4de67c0f1ef4 100644
--- a/src/MNH/paspol.f90
+++ b/src/MNH/paspol.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2008-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2008-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.
@@ -70,6 +70,7 @@ END MODULE MODI_PASPOL
USE MODD_PARAMETERS
USE MODD_NSV
USE MODD_CST
+use modd_field, only: tfielddata, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
USE MODE_GRIDPROJ
USE MODD_PASPOL
@@ -95,7 +96,6 @@ USE MODD_SUB_PASPOL_n
USE MODD_TYPE_DATE
!
USE MODE_DATETIME
-USE MODE_FIELD, ONLY: TFIELDDATA,TYPEREAL
!
!* 0. DECLARATIONS
! ------------
diff --git a/src/MNH/prandtl.f90 b/src/MNH/prandtl.f90
index a90533596417e51a025d2fbc68a134337a0b3e9a..10f5dcf7e3a5f8129616c61d35ea0665f508a124 100644
--- a/src/MNH/prandtl.f90
+++ b/src/MNH/prandtl.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.
@@ -197,11 +197,10 @@ END MODULE MODI_PRANDTL
USE MODD_CST
USE MODD_CONF
USE MODD_CTURB
+use modd_field, only: tfielddata, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
USE MODD_PARAMETERS
!
-USE MODE_FIELD, ONLY: TFIELDDATA, TYPEREAL
-!
USE MODI_GRADIENT_M
USE MODI_EMOIST
USE MODI_ETHETA
diff --git a/src/MNH/prep_ideal_case.f90 b/src/MNH/prep_ideal_case.f90
index 14b2b23d9656a02d21026556004155021b827b07..cce9665b2782140346be09eb97d81175cfddce28 100644
--- a/src/MNH/prep_ideal_case.f90
+++ b/src/MNH/prep_ideal_case.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.
@@ -370,7 +370,7 @@ USE MODE_IO_FILE, only: IO_File_close, IO_File_open
USE MODE_IO_MANAGE_STRUCT, only: IO_File_add2list,IO_Filelist_print
USE MODE_ll
USE MODE_MODELN_HANDLER
-USE MODE_FIELD
+use mode_field, only: Alloc_field_scalars, Ini_field_list, Ini_field_scalars
USE MODE_MSG
!
USE MODI_DEFAULT_DESFM_n ! Interface modules
diff --git a/src/MNH/prep_nest_pgd.f90 b/src/MNH/prep_nest_pgd.f90
index 5f525bf935f0b31b2f263e957e3e42af5d598df8..b32bbce3008fcb1ec2528a24ca520faeebde9219 100644
--- a/src/MNH/prep_nest_pgd.f90
+++ b/src/MNH/prep_nest_pgd.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1995-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1995-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.
@@ -109,7 +109,7 @@ USE MODD_NESTING
USE MODD_PARAMETERS
USE MODD_VAR_ll, ONLY: NPROC, IP, NMNH_COMM_WORLD
!
-USE MODE_FIELD, ONLY: INI_FIELD_LIST
+use mode_field, only: Ini_field_list
USE MODE_IO, only: IO_Init, IO_Pack_set
USE MODE_IO_FIELD_READ, only: IO_Field_read
USE MODE_IO_FIELD_WRITE, only: IO_Field_write, IO_Header_write
diff --git a/src/MNH/prep_pgd.f90 b/src/MNH/prep_pgd.f90
index 4303b30728ee131ad0d8d1f6cd5a0eb4aafacd69..4beb4dc431da0653b67d5a0655ff033e1a748b34 100644
--- a/src/MNH/prep_pgd.f90
+++ b/src/MNH/prep_pgd.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1995-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1995-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.
@@ -94,7 +94,7 @@ use modd_precision, only: LFIINT
USE MODD_IO_SURF_MNH, ONLY : NHALO
USE MODD_SPAWN, ONLY : NDXRATIO,NDYRATIO,NXSIZE,NYSIZE,NXOR,NYOR
!
-USE MODE_FIELD
+use mode_field, only: Ini_field_list
USE MODE_IO, only: IO_Config_set, IO_Init
USE MODE_IO_FIELD_WRITE, only: IO_Field_write, IO_Header_write
USE MODE_IO_FILE, only: IO_File_close, IO_File_open
diff --git a/src/MNH/prep_real_case.f90 b/src/MNH/prep_real_case.f90
index 564611d776d47cec051614a4d4a8bd7d3a1535b7..450c4928b2467b5785470c12f122526e12278e3c 100644
--- a/src/MNH/prep_real_case.f90
+++ b/src/MNH/prep_real_case.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1995-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1995-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.
@@ -419,7 +419,7 @@ USE MODD_SALT, ONLY: LSALT, NMODE_SLT, CRGUNITS, XINISIG_SLT, XINIR
USE MODD_TURB_n
!
USE MODE_EXTRAPOL
-USE MODE_FIELD
+use mode_field, only: Alloc_field_scalars, Ini_field_list, Ini_field_scalars
USE MODE_GRIDCART
USE MODE_GRIDPROJ
USE MODE_IO, only: IO_Init
diff --git a/src/MNH/prep_surfex.f90 b/src/MNH/prep_surfex.f90
index c21d5caa82474b699b1cf1a0b27a23897f3160b1..33b73f410fc072d8dd89a28ab8dc55db185b285a 100644
--- a/src/MNH/prep_surfex.f90
+++ b/src/MNH/prep_surfex.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2004-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2004-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.
@@ -42,7 +42,7 @@ USE MODD_MNH_SURFEX_n
USE MODD_PARAMETERS, ONLY : JPMODELMAX,JPHEXT,JPVEXT, NUNDEF, XUNDEF
USE MODD_TIME_n, ONLY : TDTCUR
!
-USE MODE_FIELD
+use mode_field, only: Ini_field_list, Ini_field_scalars
USE MODE_IO, only: IO_Init
USE MODE_IO_FIELD_READ, only: IO_Field_read
USE MODE_IO_FIELD_WRITE, only: IO_Field_write, IO_Header_write
diff --git a/src/MNH/radiations.f90 b/src/MNH/radiations.f90
index 8d47d4851fe307bbfa631489ad4fdbf10a128a7c..b8a1c3424f33cedf2c0e823ca023a82636cd0cc6 100644
--- a/src/MNH/radiations.f90
+++ b/src/MNH/radiations.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1995-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1995-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.
@@ -133,6 +133,7 @@ USE MODD_CH_AEROSOL, ONLY: LORILAM
USE MODD_CONF, ONLY: LCARTESIAN
USE MODD_CST
USE MODD_DUST, ONLY: LDUST
+use modd_field, only: tfielddata, TYPEREAL
USE MODD_GRID , ONLY: XLAT0, XLON0
USE MODD_GRID_n , ONLY: XLAT, XLON
USE MODD_IO, ONLY: TFILEDATA
@@ -153,7 +154,6 @@ USE MODD_SALT, ONLY: LSALT
USE MODD_TIME
!
USE MODE_DUSTOPT
-USE MODE_FIELD, ONLY: TFIELDDATA,TYPEREAL
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
USE MODE_ll
use mode_msg
diff --git a/src/MNH/rain_c2r2_khko.f90 b/src/MNH/rain_c2r2_khko.f90
index cc4ef656de762010425b6441919e77ecfdf5f418..edf07222d71ebb35983dfab5777dad41570e1cfd 100644
--- a/src/MNH/rain_c2r2_khko.f90
+++ b/src/MNH/rain_c2r2_khko.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1996-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1996-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.
@@ -225,6 +225,7 @@ USE MODD_CH_AEROSOL
USE MODD_CONF
USE MODD_CST
USE MODD_DUST
+use modd_field, only: tfielddata, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
USE MODD_NSV, ONLY : NSV_C2R2BEG
USE MODD_PARAM_C2R2
@@ -233,7 +234,6 @@ USE MODD_RAIN_C2R2_DESCR
USE MODD_RAIN_C2R2_KHKO_PARAM
USE MODD_SALT
-USE MODE_FIELD
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
USE MODE_ll
use mode_tools, only: Countjv
diff --git a/src/MNH/read_dummy_gr_fieldn.f90 b/src/MNH/read_dummy_gr_fieldn.f90
index cd3e1b1570fff1d8f23d33a82dc91a0a92efe3e4..80f9ceefd4eb572e8c9f69a5eace441a7a0d2da6 100644
--- a/src/MNH/read_dummy_gr_fieldn.f90
+++ b/src/MNH/read_dummy_gr_fieldn.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1995-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1995-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.
@@ -74,7 +74,7 @@ END MODULE MODI_READ_DUMMY_GR_FIELD_n
!* 0. DECLARATIONS
!
USE MODD_DUMMY_GR_FIELD_n
-USE MODE_FIELD, ONLY: TFIELDDATA, TYPEINT, TYPEREAL
+use modd_field, only: tfielddata, TYPEINT, TYPEREAL
USE MODD_GRID_n
USE MODD_IO, ONLY: TFILEDATA
USE MODD_PARAMETERS, ONLY: JPHEXT, NMNHNAMELGTMAX
diff --git a/src/MNH/read_field.f90 b/src/MNH/read_field.f90
index a6523b5d5916d74be0ba7dc13a90343ac83cae1e..1b1bbf7e51a2a1d00add7fa7daf311b7ab7c707c 100644
--- a/src/MNH/read_field.f90
+++ b/src/MNH/read_field.f90
@@ -1,7 +1,8 @@
-!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.
+!-----------------------------------------------------------------
! ######################
MODULE MODI_READ_FIELD
! ######################
@@ -246,6 +247,9 @@ END MODULE MODI_READ_FIELD
! ------------
!
USE MODD_2D_FRC
+USE MODD_ADV_n
+USE MODD_BLOWSNOW
+USE MODD_BLOWSNOW_n
USE MODD_CH_AEROSOL
USE MODD_CH_M9_n, ONLY: CNAMES, CICNAMES
USE MODD_CONF
@@ -254,13 +258,11 @@ USE MODD_CST
USE MODD_CTURB
USE MODD_DUST
USE MODD_ELEC_DESCR, ONLY: CELECNAMES
+use modd_field, only: tfielddata, tfieldlist, TYPEDATE, TYPEREAL
USE MODD_FIELD_n, only: XZWS_DEFAULT
#ifdef MNH_FOREFIRE
USE MODD_FOREFIRE
#endif
-USE MODD_BLOWSNOW
-USE MODD_BLOWSNOW_n
-
USE MODD_ICE_C1R3_DESCR, ONLY: C1R3NAMES
USE MODD_IO, ONLY: TFILEDATA
USE MODD_LATZ_EDFLX
@@ -274,13 +276,12 @@ USE MODD_PARAM_LIMA , ONLY: NMOD_CCN, LSCAV, LAERO_MASS, &
USE MODD_PARAM_LIMA_COLD, ONLY: CLIMA_COLD_NAMES
USE MODD_PARAM_LIMA_WARM, ONLY: CLIMA_WARM_NAMES, CAERO_MASS
USE MODD_PARAM_n, ONLY: CSCONV
-USE MODD_ADV_n
USE MODD_PASPOL
USE MODD_RAIN_C2R2_DESCR, ONLY: C2R2NAMES
USE MODD_SALT
USE MODD_TIME ! for type DATE_TIME
!
-USE MODE_FIELD, ONLY: TFIELDDATA, TFIELDLIST, FIND_FIELD_ID_FROM_MNHNAME, TYPEDATE, TYPEREAL
+use mode_field, only: Find_field_id_from_mnhname
USE MODE_IO_FIELD_READ, only: IO_Field_read
USE MODE_MSG
USE MODE_TOOLS, ONLY: UPCASE
diff --git a/src/MNH/read_hgrid.f90 b/src/MNH/read_hgrid.f90
index ec9c7cd44834781c72dda2a054b4dbc66f2868d4..c695be83b8a5a090518995350f0966ca72c00e2f 100644
--- a/src/MNH/read_hgrid.f90
+++ b/src/MNH/read_hgrid.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1996-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1996-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.
@@ -81,13 +81,14 @@ END MODULE MODI_READ_HGRID
!* 0. DECLARATIONS
!
USE MODD_CONF, ONLY: CPROGRAM
+use modd_field, only: tfielddata, tfieldlist
USE MODD_GRID
USE MODD_IO, ONLY: TFILEDATA
USE MODD_PARAMETERS
USE MODD_PGDDIM
USE MODD_PGDGRID
!
-USE MODE_FIELD, ONLY: TFIELDDATA, TFIELDLIST, FIND_FIELD_ID_FROM_MNHNAME
+use mode_field, only: Find_field_id_from_mnhname
USE MODE_IO, ONLY: IO_Pack_set
USE MODE_IO_FIELD_READ, only: IO_Field_read
USE MODE_GRIDPROJ
diff --git a/src/MNH/read_hgridn.f90 b/src/MNH/read_hgridn.f90
index 04cf40b18a5e061db9bf11b1b3159d2dbe311ce9..41385f588e3808e85c1438f8f4eb9ee7fc763edc 100644
--- a/src/MNH/read_hgridn.f90
+++ b/src/MNH/read_hgridn.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1996-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1996-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.
@@ -80,13 +80,14 @@ END MODULE MODI_READ_HGRID_n
!
USE MODD_CONF
USE MODD_DIM_n
+use modd_field, only: tfielddata, tfieldlist
USE MODD_GRID
USE MODD_GRID_n
USE MODD_IO, ONLY: TFILEDATA
USE MODD_LUNIT_n
USE MODD_PARAMETERS, ONLY: JPHEXT, JPVEXT, JPMODELMAX
!
-USE MODE_FIELD, ONLY: TFIELDDATA, TFIELDLIST, FIND_FIELD_ID_FROM_MNHNAME
+use mode_field, only: Find_field_id_from_mnhname
USE MODE_GRIDPROJ
USE MODE_IO, only: IO_Pack_set
USE MODE_IO_FIELD_READ, only: IO_Field_read
diff --git a/src/MNH/read_prc_fmfile.f90 b/src/MNH/read_prc_fmfile.f90
index e65d36357bb6261985143735798d9da9145d1215..915c2d970d622b936a4d23e0e15040bcb66fdc83 100644
--- a/src/MNH/read_prc_fmfile.f90
+++ b/src/MNH/read_prc_fmfile.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1996-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1996-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.
@@ -101,6 +101,7 @@ END MODULE MODI_READ_PRC_FMFILE
USE MODD_CST
USE MODD_CONF
USE MODD_CONF_n
+use modd_field, only: tfieldlist
USE MODD_PARAM_n
USE MODD_LUNIT
USE MODD_REF
@@ -114,7 +115,7 @@ USE MODD_GRID_n
USE MODD_TIME_n
USE MODD_PREP_REAL
!
-USE MODE_FIELD
+use mode_field, only: Find_field_id_from_mnhname
!
USE MODI_TRUNC_FIELD
USE MODI_DEALLOCATE_MODEL1
diff --git a/src/MNH/read_precip_field.f90 b/src/MNH/read_precip_field.f90
index c8251ed16cbbccf986e54766818b98ac79ff38bd..b8181b6d34e99287c1569e7c0265bb73d4d0904c 100644
--- a/src/MNH/read_precip_field.f90
+++ b/src/MNH/read_precip_field.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1996-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1996-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.
@@ -97,12 +97,14 @@ END MODULE MODI_READ_PRECIP_FIELD
!-----------------------------------------------------------------------------
!
!* 0. DECLARATIONS
+
+use modd_field, only: tfielddata, tfieldlist
USE MODD_IO, ONLY: TFILEDATA
USE MODD_PARAM_ICE, ONLY: LDEPOSC
USE MODD_PARAM_C2R2, ONLY: LDEPOC
USE MODD_PARAM_LIMA, ONLY: MDEPOC=>LDEPOC
!
-USE MODE_FIELD, ONLY: TFIELDDATA, TFIELDLIST, FIND_FIELD_ID_FROM_MNHNAME
+use mode_field, only: Find_field_id_from_mnhname
USE MODE_IO_FIELD_READ, only: IO_Field_read
!
IMPLICIT NONE
diff --git a/src/MNH/read_surf_mnh.f90 b/src/MNH/read_surf_mnh.f90
index e274f4d85c008a739630af86561798170bc3d9fb..8e2f8faba2e0bbbf064636a97f8b033ecd586d3a 100644
--- a/src/MNH/read_surf_mnh.f90
+++ b/src/MNH/read_surf_mnh.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2003-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2003-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.
@@ -18,7 +18,8 @@ CONTAINS
SUBROUTINE PREPARE_METADATA_READ_SURF(HREC,HDIR,KGRID,KTYPE,KDIMS,HSUBR,TPFIELD)
!
-USE MODE_FIELD, ONLY: FIND_FIELD_ID_FROM_MNHNAME, TFIELDDATA, TFIELDLIST, TYPECHAR, TYPEDATE, TYPELOG
+use modd_field, only: tfielddata, tfieldlist, TYPECHAR, TYPEDATE, TYPELOG
+use mode_field, only: Find_field_id_from_mnhname
!
CHARACTER(LEN=LEN_HREC),INTENT(IN) :: HREC ! name of the article to write
CHARACTER(LEN=2), INTENT(IN) :: HDIR ! Expected type of the data field (XX,XY,--...)
@@ -140,13 +141,14 @@ END MODULE MODE_READ_SURF_MNH_TOOLS
! ------------
!
USE MODD_CONF, ONLY: CPROGRAM
+use modd_field, only: tfielddata, tfieldlist, TYPEREAL
USE MODD_GRID, ONLY: XRPK,XBETA,XLAT0,XLON0
USE MODD_IO_SURF_MNH, ONLY: TOUT, TPINFILE
USE MODD_PARAMETERS, ONLY: JPHEXT, XUNDEF
!
-USE MODE_FIELD, ONLY: TFIELDDATA,TFIELDLIST,FIND_FIELD_ID_FROM_MNHNAME,TYPEREAL
-USE MODE_IO_FIELD_READ, only: IO_Field_read
+use mode_field, only: Find_field_id_from_mnhname
USE MODE_GRIDPROJ
+USE MODE_IO_FIELD_READ, only: IO_Field_read
USE MODE_MSG
USE MODE_READ_SURF_MNH_TOOLS
!
@@ -288,24 +290,23 @@ END SUBROUTINE READ_SURFX0_MNH
!* 0. DECLARATIONS
! ------------
!
-USE MODE_FIELD, ONLY: FIND_FIELD_ID_FROM_MNHNAME,TFIELDDATA,TFIELDLIST,TYPEREAL
-USE MODE_IO_FIELD_READ, only: IO_Field_read
-USE MODE_ll
-USE MODE_MSG
-USE MODE_READ_SURF_MNH_TOOLS
-!
USE MODD_CST, ONLY: XPI
-!
+use modd_field, only: tfielddata, tfieldlist, TYPEREAL
USE MODD_IO_SURF_MNH, ONLY: TOUT, TPINFILE, NMASK, &
NIU, NJU, NIB, NJB, NIE, NJE, &
NIU_ALL, NJU_ALL, NIB_ALL, &
NJB_ALL, NIE_ALL, NJE_ALL, &
NMASK_ALL
USE MODD_PARAMETERS, ONLY: XUNDEF
-!
-USE MODI_PACK_2D_1D
+
+use mode_field, only: Find_field_id_from_mnhname
+USE MODE_IO_FIELD_READ, only: IO_Field_read
+USE MODE_ll
+USE MODE_MSG
+USE MODE_READ_SURF_MNH_TOOLS
!
USE MODI_GET_SURF_UNDEF
+USE MODI_PACK_2D_1D
!
IMPLICIT NONE
!
@@ -580,19 +581,18 @@ END SUBROUTINE READ_SURFX1_MNH
!* 0. DECLARATIONS
! ------------
!
-USE MODE_ll
-USE MODE_FIELD, ONLY: TFIELDDATA,TYPEREAL
-USE MODE_IO_FIELD_READ, only: IO_Field_read
-USE MODE_MSG
-USE MODE_READ_SURF_MNH_TOOLS
-!
+use modd_field, only: tfielddata, TYPEREAL
USE MODD_IO_SURF_MNH, ONLY: TOUT, TPINFILE, NMASK, NIU, NJU, NIB, NJB, NIE, NJE, &
NIU_ALL, NJU_ALL, NIB_ALL, NJB_ALL, NIE_ALL, NJE_ALL, NMASK_ALL
USE MODD_PARAMETERS, ONLY: XUNDEF
-!
-USE MODI_PACK_2D_1D
+
+USE MODE_IO_FIELD_READ, only: IO_Field_read
+USE MODE_ll
+USE MODE_MSG
+USE MODE_READ_SURF_MNH_TOOLS
!
USE MODI_GET_SURF_UNDEF
+USE MODI_PACK_2D_1D
!
IMPLICIT NONE
!
@@ -715,21 +715,20 @@ END SUBROUTINE READ_SURFX2_MNH
!* 0. DECLARATIONS
! ------------
!
-USE MODE_ll
-USE MODE_FIELD, ONLY: TFIELDDATA,TYPELOG,TYPEREAL
-USE MODE_IO_FIELD_READ, only: IO_Field_read
-USE MODE_MSG
-USE MODE_READ_SURF_MNH_TOOLS
-!
-USE MODD_DATA_COVER_PAR, ONLY: JPCOVER
USE MODD_CST, ONLY: XPI
-!
+USE MODD_DATA_COVER_PAR, ONLY: JPCOVER
+use modd_field, only: tfielddata, TYPELOG, TYPEREAL
USE MODD_IO_SURF_MNH, ONLY: TOUT, TPINFILE, NMASK, &
NIU, NJU, NIB, NJB, NIE, NJE, &
NIU_ALL, NJU_ALL, NIB_ALL, &
NJB_ALL, NIE_ALL, NJE_ALL, &
NMASK_ALL
!
+USE MODE_IO_FIELD_READ, only: IO_Field_read
+USE MODE_ll
+USE MODE_MSG
+USE MODE_READ_SURF_MNH_TOOLS
+!
USE MODI_PACK_2D_1D
!
IMPLICIT NONE
@@ -911,19 +910,18 @@ END SUBROUTINE READ_SURFX2COV_MNH
!* 0. DECLARATIONS
! ------------
!
-USE MODE_FIELD, ONLY: TFIELDDATA,TYPELOG,TYPEREAL
-USE MODE_IO_FIELD_READ, only: IO_Field_read
-USE MODE_ll
-USE MODE_MSG
-!
USE MODD_CST, ONLY: XPI
-!
+use modd_field, only: tfielddata, TYPELOG, TYPEREAL
USE MODD_IO_SURF_MNH, ONLY: TOUT, TPINFILE, NMASK, &
NIU, NJU, NIB, NJB, NIE, NJE, &
NIU_ALL, NJU_ALL, NIB_ALL, &
NJB_ALL, NIE_ALL, NJE_ALL, &
NMASK_ALL
!
+USE MODE_IO_FIELD_READ, only: IO_Field_read
+USE MODE_ll
+USE MODE_MSG
+!
USE MODI_PACK_2D_1D
!
IMPLICIT NONE
@@ -1095,18 +1093,16 @@ END SUBROUTINE READ_SURFX2COV_1COV_MNH
!* 0. DECLARATIONS
! ------------
!
-USE MODE_FIELD, ONLY: TFIELDDATA,TYPEINT
+USE MODD_CONF, ONLY: CPROGRAM
+use modd_field, only: tfielddata, TYPEINT
+USE MODD_IO_SURF_MNH, ONLY: TOUT, TPINFILE, NMASK, &
+ NIU, NJU, NIB, NJB, NIE, NJE
+
USE MODE_IO_FIELD_READ, only: IO_Field_read
USE MODE_ll
USE MODE_MSG
USE MODE_READ_SURF_MNH_TOOLS
-!
-USE MODD_IO_SURF_MNH, ONLY: TOUT, TPINFILE, NMASK, &
- NIU, NJU, NIB, NJB, NIE, NJE
-USE MODD_CONF, ONLY: CPROGRAM
-!
-!
-!
+
IMPLICIT NONE
!
!* 0.1 Declarations of arguments
@@ -1193,14 +1189,14 @@ END SUBROUTINE READ_SURFN0_MNH
!* 0. DECLARATIONS
! ------------
!
-USE MODE_FIELD, ONLY: TFIELDDATA,TYPEINT
+use modd_field, only: tfielddata, TYPEINT
+USE MODD_IO_SURF_MNH, ONLY: TOUT, TPINFILE, NMASK, &
+ NIU, NJU, NIB, NJB, NIE, NJE
+!
USE MODE_IO_FIELD_READ, only: IO_Field_read
USE MODE_MSG
USE MODE_READ_SURF_MNH_TOOLS
!
-USE MODD_IO_SURF_MNH, ONLY: TOUT, TPINFILE, NMASK, &
- NIU, NJU, NIB, NJB, NIE, NJE
-!
USE MODI_PACK_2D_1D
!
IMPLICIT NONE
@@ -1301,18 +1297,17 @@ END SUBROUTINE READ_SURFN1_MNH
!* 0. DECLARATIONS
! ------------
!
-USE MODE_FIELD, ONLY: TFIELDDATA, TYPECHAR
+USE MODD_CONF, ONLY: LCARTESIAN, CPROGRAM
+use modd_field, only: tfielddata, TYPECHAR
+USE MODD_IO_SURF_MNH, ONLY: TOUT, TPINFILE
+USE MODD_LUNIT, ONLY: TPGDFILE
+
USE MODE_IO_FIELD_READ, only: IO_Field_read
USE MODE_ll
USE MODE_MSG
USE MODE_POS
USE MODE_READ_SURF_MNH_TOOLS
-!
-USE MODD_IO_SURF_MNH, ONLY: TOUT, TPINFILE
-USE MODD_CONF, ONLY: LCARTESIAN, CPROGRAM
-USE MODD_LUNIT, ONLY: TPGDFILE
-!
-!
+
IMPLICIT NONE
!
!* 0.1 Declarations of arguments
@@ -1458,18 +1453,16 @@ END SUBROUTINE READ_SURFC0_MNH
!* 0. DECLARATIONS
! ------------
!
+use modd_field, only: tfielddata, TYPEINT, TYPELOG
USE MODD_IO_SURF_MNH, ONLY: TOUT, TPINFILE, NMASK, &
NIU, NJU, NIB, NJB, NIE, NJE
!
-USE MODE_FIELD, ONLY: TFIELDDATA,TYPEINT,TYPELOG
USE MODE_IO_FIELD_READ, only: IO_Field_read
USE MODE_MSG
USE MODE_READ_SURF_MNH_TOOLS
!
USE MODI_PACK_2D_1D
!
-!
-!
IMPLICIT NONE
!
!* 0.1 Declarations of arguments
@@ -1576,14 +1569,13 @@ END SUBROUTINE READ_SURFL1_MNH
!* 0. DECLARATIONS
! ------------
!
-USE MODE_FIELD, ONLY: TFIELDDATA,TYPELOG
+use modd_field, only: tfielddata, TYPELOG
+USE MODD_IO_SURF_MNH, ONLY: TOUT, TPINFILE
+
USE MODE_IO_FIELD_READ, only: IO_Field_read
USE MODE_MSG
USE MODE_READ_SURF_MNH_TOOLS
-!
-USE MODD_IO_SURF_MNH, ONLY: TOUT, TPINFILE
-!
-!
+
IMPLICIT NONE
!
!* 0.1 Declarations of arguments
@@ -1673,14 +1665,13 @@ END SUBROUTINE READ_SURFL0_MNH
!* 0. DECLARATIONS
! ------------
!
-USE MODE_FIELD, ONLY: TFIELDDATA,TYPECHAR
+use modd_field, only: tfielddata, TYPECHAR
+USE MODD_IO_SURF_MNH, ONLY: TOUT, TPINFILE
+USE MODD_TYPE_DATE
+
USE MODE_IO_FIELD_READ, only: IO_Field_read
USE MODE_MSG
-!
-USE MODD_TYPE_DATE
-USE MODD_IO_SURF_MNH, ONLY: TOUT, TPINFILE
-!
-!
+
IMPLICIT NONE
!
!* 0.1 Declarations of arguments
@@ -1797,13 +1788,12 @@ END SUBROUTINE READ_SURFT0_MNH
!* 0. DECLARATIONS
! ------------
!
-USE MODE_FIELD, ONLY: TFIELDDATA, TYPECHAR, TYPEINT, TYPEREAL
+use modd_field, only: tfielddata, TYPECHAR, TYPEINT, TYPEREAL
+USE MODD_IO_SURF_MNH, ONLY: TOUT, TPINFILE
+
USE MODE_IO_FIELD_READ, only: IO_Field_read
USE MODE_MSG
-!
-USE MODD_IO_SURF_MNH, ONLY: TOUT, TPINFILE
-!
-!
+
IMPLICIT NONE
!
!* 0.1 Declarations of arguments
diff --git a/src/MNH/set_grid.f90 b/src/MNH/set_grid.f90
index 9d8c9557115a4d595b5a787dd112f2d9292ec3c3..051b9c76ff244a17e5ac075ee5718c16d622bc5f 100644
--- a/src/MNH/set_grid.f90
+++ b/src/MNH/set_grid.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.
@@ -215,6 +215,7 @@ USE MODD_BUDGET
USE MODD_CONF
USE MODD_CONF_n
USE MODD_DYN
+use modd_field, only: tfielddata, tfieldlist
USE MODD_GRID
USE MODD_IO, ONLY: TFILEDATA,TOUTBAK
USE MODD_LUNIT_n, ONLY: TLUOUT
@@ -222,7 +223,7 @@ USE MODD_OUT_n, ONLY: OUT_MODEL
USE MODD_PARAMETERS
USE MODD_NESTING
!
-USE MODE_FIELD, ONLY: TFIELDDATA, TFIELDLIST, FIND_FIELD_ID_FROM_MNHNAME
+use mode_field, only: Find_field_id_from_mnhname
USE MODE_GATHER_ll
USE MODE_GRIDCART
USE MODE_GRIDPROJ
diff --git a/src/MNH/shallow_mf_pack.f90 b/src/MNH/shallow_mf_pack.f90
index b8f8aca936bebe8dffaef772ef67fd568ebc1f0d..e5a23264cf83a1c0ecb8d91aad02796e8b992e1a 100644
--- a/src/MNH/shallow_mf_pack.f90
+++ b/src/MNH/shallow_mf_pack.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2010-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2010-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.
@@ -128,13 +128,13 @@ USE MODD_BUDGET
USE MODD_CONF
USE MODD_CST
USE MODD_IO, ONLY: TFILEDATA
+use modd_field, only: tfielddata, TYPEREAL
USE MODD_NSV
USE MODD_PARAMETERS
USE MODD_PARAM_ICE, ONLY: CFRAC_ICE_SHALLOW_MF
USE MODD_PARAM_MFSHALL_n
use modd_precision, only: MNHTIME
-USE MODE_FIELD, ONLY: TFIELDDATA, TYPEREAL
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
USE MODI_BUDGET
diff --git a/src/MNH/spawn_field2.f90 b/src/MNH/spawn_field2.f90
index 62d152167dcaf4ba6853784893d1229937f27d4e..e167cbfc6fb32f5a1c9703e9a76e62ee36760070 100644
--- a/src/MNH/spawn_field2.f90
+++ b/src/MNH/spawn_field2.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1995-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1995-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.
@@ -170,6 +170,7 @@ USE MODD_CST
USE MODD_CONF_n, ONLY: CONF_MODEL
USE MODD_DUST, ONLY: CDUSTNAMES
USE MODD_ELEC_DESCR, ONLY: CELECNAMES
+use modd_field, only: tfielddata, TYPEREAL
USE MODD_FIELD_n, ONLY: FIELD_MODEL, XZWS_DEFAULT
USE MODD_IO, ONLY: TFILEDATA
USE MODD_LATZ_EDFLX
@@ -189,7 +190,6 @@ USE MODD_SALT, ONLY: CSALTNAMES
USE MODD_SPAWN
!
use mode_bikhardt
-USE MODE_FIELD, ONLY: TFIELDDATA,TYPEREAL
USE MODE_IO_FIELD_READ, only: IO_Field_read
USE MODE_ll
USE MODE_MSG
diff --git a/src/MNH/tke_eps_sources.f90 b/src/MNH/tke_eps_sources.f90
index bb417e018c51c88157c4cd4c4d9d122e2f14ffd3..f903b4e875376cbf4fa9bb2ceb10494bae5330af 100644
--- a/src/MNH/tke_eps_sources.f90
+++ b/src/MNH/tke_eps_sources.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.
@@ -176,6 +176,7 @@ END MODULE MODI_TKE_EPS_SOURCES
USE MODD_CST
USE MODD_CONF
USE MODD_CTURB
+use modd_field, only: tfielddata, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
USE MODD_PARAMETERS
USE MODD_BUDGET
@@ -183,7 +184,6 @@ USE MODD_LES
USE MODD_DIAG_IN_RUN, ONLY : LDIAG_IN_RUN, XCURRENT_TKE_DISS
!
USE MODE_ll
-USE MODE_FIELD, ONLY: TFIELDDATA, TYPEREAL
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
!
USE MODI_GRADIENT_M
diff --git a/src/MNH/turb.f90 b/src/MNH/turb.f90
index 96dbe560b3b6620a18e63716a24394f266eef498..4e637204f07185621ba7ac4ba1b7dada614dc2f0 100644
--- a/src/MNH/turb.f90
+++ b/src/MNH/turb.f90
@@ -346,14 +346,15 @@ END MODULE MODI_TURB
!* 0. DECLARATIONS
! ------------
!
-USE MODD_PARAMETERS, ONLY: JPVEXT_TURB
+USE MODD_BUDGET
+USE MODD_CONF
USE MODD_CST
USE MODD_CTURB
-USE MODD_CONF
-USE MODD_BUDGET
+use modd_field, only: tfielddata, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
USE MODD_LES
USE MODD_NSV
+USE MODD_PARAMETERS, ONLY: JPVEXT_TURB
!
USE MODI_GRADIENT_M
USE MODI_GRADIENT_U
@@ -373,7 +374,6 @@ USE MODI_TM06
USE MODI_UPDATE_LM
USE MODI_GET_HALO
!
-USE MODE_FIELD, ONLY: TFIELDDATA, TYPEREAL
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
USE MODE_SBL
!
diff --git a/src/MNH/turb_cloud_index.f90 b/src/MNH/turb_cloud_index.f90
index abe8e0f24c2af29888c0d0517ea5d6d882e6e8a8..6e011097c60ff6adcc357ab828a413939959632d 100644
--- a/src/MNH/turb_cloud_index.f90
+++ b/src/MNH/turb_cloud_index.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.
@@ -85,10 +85,10 @@ END MODULE MODI_TURB_CLOUD_INDEX
!
!-------------------------------------------------------------------------------
!
+use modd_field, only: tfielddata, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
USE MODD_PARAMETERS, ONLY: JPVEXT
!
-USE MODE_FIELD, ONLY: TFIELDDATA,TYPEREAL
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
use mode_tools_ll, only: GET_INDICE_ll
!
diff --git a/src/MNH/turb_hor_dyn_corr.f90 b/src/MNH/turb_hor_dyn_corr.f90
index fc74e743e437685b1c2d5b4b2d8703d53af5d810..1b5e6836c377d9767ebdec1f7f5fc003d5190e7f 100644
--- a/src/MNH/turb_hor_dyn_corr.f90
+++ b/src/MNH/turb_hor_dyn_corr.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.
@@ -146,13 +146,13 @@ USE MODD_ARGSLIST_ll, ONLY: LIST_ll
USE MODD_CST
USE MODD_CONF
USE MODD_CTURB
+use modd_field, only: tfielddata, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
USE MODD_PARAMETERS
USE MODD_LES
USE MODD_NSV
!
USE MODE_ll
-USE MODE_FIELD, ONLY: TFIELDDATA, TYPEREAL
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
!
USE MODI_GRADIENT_M
diff --git a/src/MNH/turb_hor_sv_flux.f90 b/src/MNH/turb_hor_sv_flux.f90
index 2ff88559c9523cd23ca6f0145444b11d989d27fb..c50ea5761fe9a04e81cf947c052e881deca43577 100644
--- a/src/MNH/turb_hor_sv_flux.f90
+++ b/src/MNH/turb_hor_sv_flux.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.
@@ -115,13 +115,13 @@ END MODULE MODI_TURB_HOR_SV_FLUX
USE MODD_CST
USE MODD_CONF
USE MODD_CTURB
+use modd_field, only: tfielddata, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
USE MODD_PARAMETERS
USE MODD_NSV, ONLY: NSV_LGBEG, NSV_LGEND
USE MODD_LES
USE MODD_BLOWSNOW
!
-USE MODE_FIELD, ONLY: TFIELDDATA, TYPEREAL
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
!
USE MODI_GRADIENT_M
diff --git a/src/MNH/turb_hor_thermo_corr.f90 b/src/MNH/turb_hor_thermo_corr.f90
index e6f89e6d9cd5e241c61f0bdb402b21f8ade96872..ef91a4e90117d841d097131cc45d6f5156c845c2 100644
--- a/src/MNH/turb_hor_thermo_corr.f90
+++ b/src/MNH/turb_hor_thermo_corr.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.
@@ -123,11 +123,11 @@ END MODULE MODI_TURB_HOR_THERMO_CORR
USE MODD_CST
USE MODD_CONF
USE MODD_CTURB
+use modd_field, only: tfielddata, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
USE MODD_PARAMETERS
USE MODD_LES
!
-USE MODE_FIELD, ONLY: TFIELDDATA, TYPEREAL
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
!
USE MODI_GRADIENT_M
diff --git a/src/MNH/turb_hor_thermo_flux.f90 b/src/MNH/turb_hor_thermo_flux.f90
index 188e932c62a1b2f55adc2ea3a963736893bb47b5..2efa2fb982b6420d0c4b8ee8e2328e386da818f7 100644
--- a/src/MNH/turb_hor_thermo_flux.f90
+++ b/src/MNH/turb_hor_thermo_flux.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.
@@ -132,11 +132,11 @@ END MODULE MODI_TURB_HOR_THERMO_FLUX
USE MODD_CST
USE MODD_CONF
USE MODD_CTURB
+use modd_field, only: tfielddata, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
USE MODD_PARAMETERS
USE MODD_LES
!
-USE MODE_FIELD, ONLY: TFIELDDATA, TYPEREAL
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
!
USE MODI_GRADIENT_M
diff --git a/src/MNH/turb_hor_uv.f90 b/src/MNH/turb_hor_uv.f90
index 70210144df301fb62c5204d058f6d376c837db61..9d7e398eeb98a46d5352bab8f30ea7b6d814a0f8 100644
--- a/src/MNH/turb_hor_uv.f90
+++ b/src/MNH/turb_hor_uv.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.
@@ -128,11 +128,11 @@ END MODULE MODI_TURB_HOR_UV
USE MODD_CST
USE MODD_CONF
USE MODD_CTURB
+use modd_field, only: tfielddata, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
USE MODD_PARAMETERS
USE MODD_LES
!
-USE MODE_FIELD, ONLY: TFIELDDATA, TYPEREAL
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
!
USE MODI_GRADIENT_M
diff --git a/src/MNH/turb_hor_uw.f90 b/src/MNH/turb_hor_uw.f90
index 8860fdfd542f467d1fd57111ec364fdcb9b9cc16..07f6c7cdbd2beafb7ce77d13c178eb9594361b5a 100644
--- a/src/MNH/turb_hor_uw.f90
+++ b/src/MNH/turb_hor_uw.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.
@@ -119,12 +119,12 @@ END MODULE MODI_TURB_HOR_UW
USE MODD_CST
USE MODD_CONF
USE MODD_CTURB
+use modd_field, only: tfielddata, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
USE MODD_PARAMETERS
USE MODD_LES
USE MODD_NSV
!
-USE MODE_FIELD, ONLY: TFIELDDATA, TYPEREAL
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
!
USE MODI_GRADIENT_M
diff --git a/src/MNH/turb_hor_vw.f90 b/src/MNH/turb_hor_vw.f90
index a730e736f96d2aa613864c6b6eeedf16bba5ff20..87031f8b23da785f77227e0118c4427c7fc8203b 100644
--- a/src/MNH/turb_hor_vw.f90
+++ b/src/MNH/turb_hor_vw.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.
@@ -115,12 +115,12 @@ END MODULE MODI_TURB_HOR_VW
USE MODD_CST
USE MODD_CONF
USE MODD_CTURB
+use modd_field, only: tfielddata, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
USE MODD_PARAMETERS
USE MODD_LES
USE MODD_NSV
!
-USE MODE_FIELD, ONLY: TFIELDDATA, TYPEREAL
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
!
USE MODI_GRADIENT_M
diff --git a/src/MNH/turb_ver.f90 b/src/MNH/turb_ver.f90
index fcde4fe3c699f3b34701e25522335933f68e1511..de1cf6c4c1abd2b7864b008a415fc54ca5cc7880 100644
--- a/src/MNH/turb_ver.f90
+++ b/src/MNH/turb_ver.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.
@@ -326,6 +326,7 @@ END MODULE MODI_TURB_VER
!
USE MODD_CST
USE MODD_CTURB
+use modd_field, only: tfielddata, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
USE MODD_PARAMETERS
USE MODD_LES
@@ -346,7 +347,6 @@ USE MODI_TURB_VER_SV_CORR
USE MODI_LES_MEAN_SUBGRID
USE MODI_SBL_DEPTH
!
-USE MODE_FIELD, ONLY: TFIELDDATA, TYPEREAL
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
USE MODE_PRANDTL
!
diff --git a/src/MNH/turb_ver_dyn_flux.f90 b/src/MNH/turb_ver_dyn_flux.f90
index 267bd058d40430454dde94452c6c8b1c0f7941f2..6371555afdd737b51d3b70a3addb66b12bd59431 100644
--- a/src/MNH/turb_ver_dyn_flux.f90
+++ b/src/MNH/turb_ver_dyn_flux.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.
@@ -290,6 +290,7 @@ END MODULE MODI_TURB_VER_DYN_FLUX
USE MODD_CONF
USE MODD_CST
USE MODD_CTURB
+use modd_field, only: tfielddata, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
USE MODD_LES
USE MODD_NSV
@@ -306,7 +307,6 @@ USE MODI_TRIDIAG
USE MODI_TRIDIAG_WIND
USE MODI_LES_MEAN_SUBGRID
!
-USE MODE_FIELD, ONLY: TFIELDDATA, TYPEREAL
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
USE MODE_ll
!
diff --git a/src/MNH/turb_ver_sv_flux.f90 b/src/MNH/turb_ver_sv_flux.f90
index 7b412bcbac466222b67ecf267579ea3268efa0de..356cf67001e980360b50ae038cc3e4be6b892216 100644
--- a/src/MNH/turb_ver_sv_flux.f90
+++ b/src/MNH/turb_ver_sv_flux.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.
@@ -272,13 +272,13 @@ END MODULE MODI_TURB_VER_SV_FLUX
!
USE MODD_CST
USE MODD_CTURB
+use modd_field, only: tfielddata, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
USE MODD_PARAMETERS
USE MODD_LES
USE MODD_CONF
USE MODD_NSV, ONLY: XSVMIN, NSV_LGBEG, NSV_LGEND
USE MODD_BLOWSNOW
-USE MODE_FIELD, ONLY: TFIELDDATA, TYPEREAL
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
!
USE MODI_GRADIENT_U
diff --git a/src/MNH/turb_ver_thermo_corr.f90 b/src/MNH/turb_ver_thermo_corr.f90
index 3f443b6ff0a85ecb1b90015094f7aac1455eb473..7bcc6799f340016483d8ab7550c05a0cb2699348 100644
--- a/src/MNH/turb_ver_thermo_corr.f90
+++ b/src/MNH/turb_ver_thermo_corr.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.
@@ -314,6 +314,7 @@ END MODULE MODI_TURB_VER_THERMO_CORR
!
USE MODD_CST
USE MODD_CTURB
+use modd_field, only: tfielddata, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
USE MODD_PARAMETERS
USE MODD_CONF
@@ -329,7 +330,6 @@ USE MODI_LES_MEAN_SUBGRID
USE MODI_PRANDTL
USE MODI_TRIDIAG_THERMO
!
-USE MODE_FIELD, ONLY: TFIELDDATA, TYPEREAL
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
USE MODE_PRANDTL
!
diff --git a/src/MNH/turb_ver_thermo_flux.f90 b/src/MNH/turb_ver_thermo_flux.f90
index e833fef4bebcadff52ee014938276cca4031b77e..2e01a94afd4b1cc8602f9764a5eef2df521260bb 100644
--- a/src/MNH/turb_ver_thermo_flux.f90
+++ b/src/MNH/turb_ver_thermo_flux.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.
@@ -332,6 +332,7 @@ END MODULE MODI_TURB_VER_THERMO_FLUX
!
USE MODD_CST
USE MODD_CTURB
+use modd_field, only: tfielddata, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
USE MODD_PARAMETERS
USE MODD_CONF
@@ -348,7 +349,6 @@ USE MODI_PRANDTL
USE MODI_TRIDIAG_THERMO
USE MODI_TM06_H
!
-USE MODE_FIELD, ONLY: TFIELDDATA, TYPEREAL
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
USE MODE_PRANDTL
!
diff --git a/src/MNH/uv_to_zonal_and_merid.f90 b/src/MNH/uv_to_zonal_and_merid.f90
index 1403691bc4aa5fb2508a579179af35330f8f383c..6ce72b8c276368ca96f11d8626d9e8477081a170 100644
--- a/src/MNH/uv_to_zonal_and_merid.f90
+++ b/src/MNH/uv_to_zonal_and_merid.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2000-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2000-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.
@@ -9,8 +9,8 @@
INTERFACE UV_TO_ZONAL_AND_MERID
SUBROUTINE UV_TO_ZONAL_AND_MERID3D(PU,PV,KGRID,PZC,PMC,TPFILE,TZFIELDS)
!
-USE MODD_IO, ONLY: TFILEDATA
-USE MODE_FIELD, ONLY: TFIELDDATA
+use modd_field, only: tfielddata
+use modd_io, only: tfiledata
!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PU ! Input U component
REAL, DIMENSION(:,:,:), INTENT(IN) :: PV ! Input V component
@@ -24,8 +24,8 @@ END SUBROUTINE UV_TO_ZONAL_AND_MERID3D
!
SUBROUTINE UV_TO_ZONAL_AND_MERID2D(PU,PV,KGRID,PZC,PMC,TPFILE,TZFIELDS)
!
-USE MODD_IO, ONLY: TFILEDATA
-USE MODE_FIELD, ONLY: TFIELDDATA
+use modd_field, only: tfielddata
+use modd_io, only: tfiledata
!
REAL, DIMENSION(:,:), INTENT(IN) :: PU ! Input U component
REAL, DIMENSION(:,:), INTENT(IN) :: PV ! Input V component
@@ -47,8 +47,8 @@ INTERFACE
!
SUBROUTINE UV_TO_ZONAL_AND_MERID3D(PU,PV,KGRID,PZC,PMC,TPFILE,TZFIELDS)
!
-USE MODD_IO, ONLY: TFILEDATA
-USE MODE_FIELD, ONLY: TFIELDDATA
+use modd_field, only: tfielddata
+use modd_io, only: tfiledata
!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PU ! Input U component
REAL, DIMENSION(:,:,:), INTENT(IN) :: PV ! Input V component
@@ -103,13 +103,13 @@ END MODULE MODI_UV_TO_ZONAL_AND_MERID3D
USE MODD_CONF
USE MODD_CST
USE MODD_DIM_n
+use modd_field, only: tfielddata
USE MODD_GRID
USE MODD_GRID_n
USE MODD_IO, ONLY: TFILEDATA
USE MODD_LUNIT_n, ONLY: TLUOUT
USE MODD_PARAMETERS
!
-USE MODE_FIELD, ONLY: TFIELDDATA
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
USE MODE_MSG
!
@@ -276,10 +276,10 @@ END SUBROUTINE UV_TO_ZONAL_AND_MERID3D
!* 0. DECLARATIONS
! ------------
!
+use modd_field, only: tfielddata
USE MODD_IO, ONLY: TFILEDATA, NVERB_WARNING
USE MODD_LUNIT_n, ONLY: TLUOUT
!
-USE MODE_FIELD, ONLY: TFIELDDATA
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
USE MODE_MSG
!
diff --git a/src/MNH/ver_thermo.f90 b/src/MNH/ver_thermo.f90
index 8da4d84de6d7035719490d242b73f17ffb41efed..d926e6c26166d796723e9c9050aad7b41e79ae0a 100644
--- a/src/MNH/ver_thermo.f90
+++ b/src/MNH/ver_thermo.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.
@@ -159,6 +159,7 @@ USE MODD_CONF
USE MODD_CONF_n
USE MODD_CST
USE MODD_DYN_n
+use modd_field, only: tfielddata, TYPEREAL
USE MODD_FIELD_n, ONLY: XTHT,XRT,XPABST,XDRYMASST
USE MODD_GRID_n
USE MODD_IO, ONLY: TFILEDATA,TFILE_DUMMY
@@ -170,7 +171,6 @@ USE MODD_REF_n
!
USE MODD_DIM_n
USE MODE_EXTRAPOL
-USE MODE_FIELD, ONLY: TFIELDDATA,TYPEREAL
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
USE MODE_ll
USE MODE_MPPDB
diff --git a/src/MNH/write_balloonn.f90 b/src/MNH/write_balloonn.f90
index c1d82c1b2378f84d968575a363c334a81ee306a0..f0c790ddd868d44f382b961b742bc4f6528b545e 100644
--- a/src/MNH/write_balloonn.f90
+++ b/src/MNH/write_balloonn.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2001-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2001-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.
@@ -96,7 +96,7 @@ CONTAINS
!-------------------------------------------------------------------------------
SUBROUTINE WRITE_LFI_BALLOON(TPFLYER)
!
-USE MODE_FIELD, ONLY: TFIELDDATA, TYPEREAL
+use modd_field, only: tfielddata, TYPEREAL
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
!
TYPE(FLYER), INTENT(IN) :: TPFLYER
diff --git a/src/MNH/write_budget.f90 b/src/MNH/write_budget.f90
index 0d7caf60d02cd3f4fd499b69ac1ef10b064a1df5..e164ef3c190edbc3546338a292b7c16381b0d41d 100644
--- a/src/MNH/write_budget.f90
+++ b/src/MNH/write_budget.f90
@@ -119,13 +119,13 @@ subroutine Write_budget( tpdiafile, tpdtcur, ptstep, ksv )
xburhodj, xburhodju, xburhodjv, xburhodjw, &
xburu, xburv, xburw, xburth, xburtke, &
xburrv, xburrc, xburrr, xburri, xburrs, xburrg, xburrh, xbursv
+ use modd_field, only: tfielddata, TYPEREAL
use modd_io, only: tfiledata
use modd_lunit_n, only: tluout
use modd_parameters, only: NMNHNAMELGTMAX
use modd_type_date, only: date_time
use mode_datetime, only: datetime_distance
- use mode_field, only: tfielddata, TYPEREAL
use mode_io_field_write, only: IO_Field_write
use mode_menu_diachro, only: Menu_diachro
use mode_time, only: tdtexp
diff --git a/src/MNH/write_diachro.f90 b/src/MNH/write_diachro.f90
index 8934a59ceac5b00ca68730d7b955defd80812030..d6d8e310b4903787d2259cffa0274e27417e8834 100644
--- a/src/MNH/write_diachro.f90
+++ b/src/MNH/write_diachro.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1996-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1996-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.
@@ -86,6 +86,7 @@ contains
!
USE MODD_BUDGET
USE MODD_CONF
+use modd_field, only: tfielddata, TYPECHAR, TYPEDATE, TYPEINT, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
USE MODD_PARAMETERS, ONLY: JPHEXT
use modd_time, only: tdtexp, tdtseg
@@ -93,7 +94,6 @@ use modd_time_n, only: tdtmod
use modd_type_date, only: date_time
!
use mode_datetime, only: Datetime_distance
-USE MODE_FIELD
USE MODE_IO_FIELD_WRITE, only: IO_Field_write, IO_Field_write_box
USE MODE_ll
use mode_menu_diachro, only: MENU_DIACHRO
diff --git a/src/MNH/write_dummy_gr_fieldn.f90 b/src/MNH/write_dummy_gr_fieldn.f90
index e177c4e2ed84ac3182383366b0217d31db542ff0..74f56e63cbd956f50ef7992ef52b3b2fbaebfce9 100644
--- a/src/MNH/write_dummy_gr_fieldn.f90
+++ b/src/MNH/write_dummy_gr_fieldn.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1996-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1996-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.
@@ -63,10 +63,10 @@ END MODULE MODI_WRITE_DUMMY_GR_FIELD_n
!
USE MODD_DUMMY_GR_FIELD_n, ONLY: NDUMMY_GR_NBR, CDUMMY_GR_NAME, &
CDUMMY_GR_AREA, XDUMMY_GR_FIELDS
+use modd_field, only: tfielddata, TYPEINT, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
USE MODD_PARAMETERS, ONLY: NMNHNAMELGTMAX
!
-USE MODE_FIELD, ONLY: TFIELDDATA,TYPEINT,TYPEREAL
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
!
IMPLICIT NONE
diff --git a/src/MNH/write_lbn.f90 b/src/MNH/write_lbn.f90
index 32f0fd5835e0e93685737ecda1cee76b6bffd2c0..2777fa8b61257ec0de87f9575920c2eed038bf66 100644
--- a/src/MNH/write_lbn.f90
+++ b/src/MNH/write_lbn.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1998-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1998-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.
@@ -120,7 +120,7 @@ USE MODI_DUSTLFI_n
USE MODI_SALTLFI_n
USE MODD_PARAMETERS, ONLY: JPHEXT
USE MODD_IO, ONLY: TFILEDATA
-USE MODE_FIELD, ONLY: TFIELDDATA,TYPELOG,TYPEREAL
+use modd_field, only: tfielddata, TYPELOG, TYPEREAL
!
!
IMPLICIT NONE
diff --git a/src/MNH/write_lfifm1_for_diag.f90 b/src/MNH/write_lfifm1_for_diag.f90
index 6655d27e109d94115783b87e80f9edc5251e5616..49ebac8c707aa801ebcab87d643cbe1b05d2fd81 100644
--- a/src/MNH/write_lfifm1_for_diag.f90
+++ b/src/MNH/write_lfifm1_for_diag.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.
@@ -152,6 +152,7 @@ END MODULE MODI_WRITE_LFIFM1_FOR_DIAG
USE MODD_DIM_n
USE MODD_CONF
USE MODD_CONF_n
+use modd_field, only: tfielddata, tfieldlist, TYPEINT, TYPEREAL
USE MODD_GRID
USE MODD_GRID_n
USE MODD_IO, ONLY : TFILEDATA
@@ -233,8 +234,8 @@ USE MODI_FREE_ATM_PROFILE
USE MODI_GPS_ZENITH
USE MODI_CONTRAV
!
+use mode_field, only: Find_field_id_from_mnhname
USE MODE_GRIDPROJ
-USE MODE_FIELD
USE MODE_GATHER_ll
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
USE MODE_IO_FILE, only: IO_File_close, IO_File_open
diff --git a/src/MNH/write_lfifm1_for_diag_supp.f90 b/src/MNH/write_lfifm1_for_diag_supp.f90
index 4908ec514781ac6d48a5ffeb717a3024e9f4007e..29d7fed2d1cdef685ee2d3744efcb0fd08733d6c 100644
--- a/src/MNH/write_lfifm1_for_diag_supp.f90
+++ b/src/MNH/write_lfifm1_for_diag_supp.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2000-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2000-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.
@@ -96,6 +96,7 @@ END MODULE MODI_WRITE_LFIFM1_FOR_DIAG_SUPP
!
USE MODE_ll
USE MODD_CST
+use modd_field, only: tfielddata, tfieldlist, TYPEINT, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
USE MODD_PARAMETERS
USE MODD_CONF_n
@@ -156,7 +157,7 @@ USE MODI_CALL_RTTOV11
USE MODI_RADTR_SATEL
USE MODI_UV_TO_ZONAL_AND_MERID
!
-USE MODE_FIELD
+use mode_field, only: Find_field_id_from_mnhname
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
!
USE MODI_GET_SURF_UNDEF
diff --git a/src/MNH/write_lfin.f90 b/src/MNH/write_lfin.f90
index 75c4c6d8f0157264aa29c590de96ef8033ef9cd5..22fe2bc3926138caa12cbeab4b3e1f3677531a53 100644
--- a/src/MNH/write_lfin.f90
+++ b/src/MNH/write_lfin.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.
@@ -180,6 +180,7 @@ END MODULE MODI_WRITE_LFIFM_n
USE MODD_DIM_n
USE MODD_CONF
USE MODD_CONF_n
+use modd_field, only: tfielddata, tfieldlist, TYPEDATE, TYPEINT, TYPEREAL
USE MODD_GRID
USE MODD_GRID_n
USE MODD_TIME
@@ -244,7 +245,7 @@ USE MODE_IO_FILE, only: IO_File_close
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
USE MODE_ll
USE MODD_IO, ONLY: TFILEDATA
-USE MODE_FIELD
+use mode_field, only: Find_field_id_from_mnhname
USE MODE_GATHER_ll
USE MODE_GRIDPROJ
USE MODE_MSG
diff --git a/src/MNH/write_surf_mnh.f90 b/src/MNH/write_surf_mnh.f90
index 2fb2021b5e149b35978a03228e44c19f23c3d528..ad6ba8fb06e2a03672bee885cbeafdacd92dbc1a 100644
--- a/src/MNH/write_surf_mnh.f90
+++ b/src/MNH/write_surf_mnh.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1997-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1997-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.
@@ -11,7 +11,9 @@ CONTAINS
SUBROUTINE PREPARE_METADATA_WRITE_SURF(HREC,HDIR,HCOMMENT,KGRID,KTYPE,KDIMS,HSUBR,TPFIELD)
!
-USE MODE_FIELD, ONLY: FIND_FIELD_ID_FROM_MNHNAME, TFIELDDATA, TFIELDLIST, TYPECHAR, TYPEDATE, TYPELOG
+use modd_field, only: tfielddata, tfieldlist, TYPECHAR, TYPEDATE, TYPELOG
+
+use mode_field, only: Find_field_id_from_mnhname
USE MODE_MSG
!
CHARACTER(LEN=LEN_HREC),INTENT(IN) :: HREC ! name of the article to write
@@ -171,16 +173,16 @@ END MODULE MODE_WRITE_SURF_MNH_TOOLS
!* 0. DECLARATIONS
! ------------
!
-USE MODE_FIELD, ONLY: TFIELDDATA,TYPEREAL
-use MODE_IO_FIELD_WRITE, only: IO_Field_write
-USE MODE_MSG
-USE MODE_WRITE_SURF_MNH_TOOLS
-!
USE MODD_CONF, ONLY: CPROGRAM
USE MODD_CONF_n, ONLY: CSTORAGE_TYPE
+use modd_field, only: tfielddata,TYPEREAL
USE MODD_GRID
USE MODD_IO, ONLY: TFILE_SURFEX
-!
+
+use MODE_IO_FIELD_WRITE, only: IO_Field_write
+USE MODE_MSG
+USE MODE_WRITE_SURF_MNH_TOOLS
+
IMPLICIT NONE
!
!* 0.1 Declarations of arguments
@@ -282,13 +284,8 @@ END SUBROUTINE WRITE_SURFX0_MNH
!* 0. DECLARATIONS
! ------------
!
-USE MODE_FIELD, ONLY: FIND_FIELD_ID_FROM_MNHNAME,TFIELDDATA,TFIELDLIST,TYPEREAL
-use MODE_IO_FIELD_WRITE, only: IO_Field_write
-USE MODE_MSG
-USE MODE_TOOLS_ll
-USE MODE_WRITE_SURF_MNH_TOOLS
-!
USE MODD_CONF_n, ONLY: CSTORAGE_TYPE
+use modd_field, only: tfielddata, tfieldlist, TYPEREAL
USE MODD_GRID_n, ONLY: XXHAT, XYHAT
USE MODD_IO, ONLY: TFILE_SURFEX
USE MODD_IO_SURF_MNH, ONLY :NMASK, CMASK, &
@@ -296,10 +293,16 @@ USE MODD_IO_SURF_MNH, ONLY :NMASK, CMASK, &
NIU_ALL, NJU_ALL, NIB_ALL, NJB_ALL, &
NIE_ALL, NJE_ALL, NMASK_ALL, NHALO
USE MODD_PARAMETERS, ONLY: XUNDEF, JPHEXT
-!
+
+use mode_field, only: Find_field_id_from_mnhname
+use MODE_IO_FIELD_WRITE, only: IO_Field_write
+USE MODE_MSG
+USE MODE_TOOLS_ll
+USE MODE_WRITE_SURF_MNH_TOOLS
+
USE MODI_GET_SURF_UNDEF
USE MODI_UNPACK_1D_2D
-!
+
IMPLICIT NONE
!
!* 0.1 Declarations of arguments
@@ -545,13 +548,8 @@ END SUBROUTINE WRITE_SURFX1_MNH
!* 0. DECLARATIONS
! ------------
!
-USE MODE_FIELD, ONLY: TFIELDDATA,TYPELOG,TYPEREAL
-use MODE_IO_FIELD_WRITE, only: IO_Field_write
-USE MODE_MSG
-USE MODE_TOOLS_ll
-USE MODE_WRITE_SURF_MNH_TOOLS
-!
USE MODD_CONF_n, ONLY: CSTORAGE_TYPE
+use modd_field, only: tfielddata, TYPELOG, TYPEREAL
USE MODD_DATA_COVER_PAR, ONLY: JPCOVER
USE MODD_IO, ONLY: TFILE_SURFEX
USE MODD_IO_SURF_MNH, ONLY: NMASK, CMASK, &
@@ -559,10 +557,15 @@ USE MODD_IO_SURF_MNH, ONLY: NMASK, CMASK, &
NIU_ALL, NJU_ALL, NIB_ALL, NJB_ALL, &
NIE_ALL, NJE_ALL, NMASK_ALL, NHALO
USE MODD_PARAMETERS, ONLY: XUNDEF, JPHEXT
-!
+
+use MODE_IO_FIELD_WRITE, only: IO_Field_write
+USE MODE_MSG
+USE MODE_TOOLS_ll
+USE MODE_WRITE_SURF_MNH_TOOLS
+
USE MODI_GET_SURF_UNDEF
USE MODI_UNPACK_1D_2D
-!
+
IMPLICIT NONE
!
!* 0.1 Declarations of arguments
@@ -746,24 +749,24 @@ END SUBROUTINE WRITE_SURFX2COV_MNH
!* 0. DECLARATIONS
! ------------
!
-USE MODE_FIELD, ONLY: TFIELDDATA,TYPEREAL
-use MODE_IO_FIELD_WRITE, only: IO_Field_write
-USE MODE_MSG
-USE MODE_TOOLS_ll
-USE MODE_WRITE_SURF_MNH_TOOLS
-!
USE MODD_CONF_n, ONLY: CSTORAGE_TYPE
USE MODD_DATA_COVER_PAR, ONLY: JPCOVER
+use modd_field, only: tfielddata, TYPEREAL
USE MODD_IO, ONLY: TFILE_SURFEX
USE MODD_IO_SURF_MNH, ONLY: NMASK, CMASK, &
NIU, NJU, NIB, NJB, NIE, NJE, &
NIU_ALL, NJU_ALL, NIB_ALL, NJB_ALL, &
NIE_ALL, NJE_ALL, NMASK_ALL, NHALO
USE MODD_PARAMETERS, ONLY: XUNDEF
-!
+
+use MODE_IO_FIELD_WRITE, only: IO_Field_write
+USE MODE_MSG
+USE MODE_TOOLS_ll
+USE MODE_WRITE_SURF_MNH_TOOLS
+
USE MODI_GET_SURF_UNDEF
USE MODI_UNPACK_1D_2D
-!
+
IMPLICIT NONE
!
!* 0.1 Declarations of arguments
@@ -897,16 +900,16 @@ END SUBROUTINE WRITE_SURFX2_MNH
!* 0. DECLARATIONS
! ------------
!
-USE MODE_FIELD, ONLY: TFIELDDATA,TYPEINT
-use MODE_IO_FIELD_WRITE, only: IO_Field_write
-USE MODE_MSG
-USE MODE_WRITE_SURF_MNH_TOOLS
-!
USE MODD_CONF_n, ONLY: CSTORAGE_TYPE
+use modd_field, only: tfielddata, TYPEINT
USE MODD_IO, ONLY: TFILE_SURFEX
USE MODD_IO_SURF_MNH, ONLY: NIU_ALL, NJU_ALL
USE MODD_PARAMETERS, ONLY: JPHEXT
-!
+
+use MODE_IO_FIELD_WRITE, only: IO_Field_write
+USE MODE_MSG
+USE MODE_WRITE_SURF_MNH_TOOLS
+
IMPLICIT NONE
!
!* 0.1 Declarations of arguments
@@ -992,18 +995,18 @@ END SUBROUTINE WRITE_SURFN0_MNH
!* 0. DECLARATIONS
! ------------
!
-USE MODE_FIELD, ONLY: TFIELDDATA,TYPEINT
-use MODE_IO_FIELD_WRITE, only: IO_Field_write
-USE MODE_MSG
-USE MODE_WRITE_SURF_MNH_TOOLS
-!
+use modd_field, only: tfielddata, TYPEINT
USE MODD_IO, ONLY: TFILE_SURFEX
USE MODD_IO_SURF_MNH, ONLY: NMASK, CMASK, &
NIU, NJU, NIB, NJB, NIE, NJE
USE MODD_PARAMETERS, ONLY: NUNDEF
-!
+
+use MODE_IO_FIELD_WRITE, only: IO_Field_write
+USE MODE_MSG
+USE MODE_WRITE_SURF_MNH_TOOLS
+
USE MODI_UNPACK_1D_2D
-!
+
IMPLICIT NONE
!
!* 0.1 Declarations of arguments
@@ -1095,15 +1098,15 @@ END SUBROUTINE WRITE_SURFN1_MNH
!* 0. DECLARATIONS
! ------------
!
-USE MODE_FIELD, ONLY: TFIELDDATA,TYPECHAR,TYPELOG
-use MODE_IO_FIELD_WRITE, only: IO_Field_write
-USE MODE_MSG
-USE MODE_WRITE_SURF_MNH_TOOLS
-!
USE MODD_CONF_n, ONLY: CSTORAGE_TYPE
+use modd_field, only: tfielddata, TYPECHAR, TYPELOG
USE MODD_IO, ONLY: TFILE_SURFEX
USE MODD_IO_SURF_MNH, ONLY: NIU_ALL, NJU_ALL
-!
+
+use MODE_IO_FIELD_WRITE, only: IO_Field_write
+USE MODE_MSG
+USE MODE_WRITE_SURF_MNH_TOOLS
+
IMPLICIT NONE
!
!* 0.1 Declarations of arguments
@@ -1191,18 +1194,18 @@ END SUBROUTINE WRITE_SURFC0_MNH
!* 0. DECLARATIONS
! ------------
!
-USE MODE_FIELD, ONLY: TFIELDDATA,TYPEINT,TYPELOG
-use MODE_IO_FIELD_WRITE, only: IO_Field_write
-USE MODE_MSG
-USE MODE_WRITE_SURF_MNH_TOOLS
-!
USE MODD_CONF_n, ONLY: CSTORAGE_TYPE
+use modd_field, only: tfielddata, TYPEINT, TYPELOG
USE MODD_IO, ONLY: TFILE_SURFEX
USE MODD_IO_SURF_MNH, ONLY: NMASK, CMASK, &
NIU, NJU, NIB, NJB, NIE, NJE
-!
+
+use MODE_IO_FIELD_WRITE, only: IO_Field_write
+USE MODE_MSG
+USE MODE_WRITE_SURF_MNH_TOOLS
+
USE MODI_UNPACK_1D_2D
-!
+
IMPLICIT NONE
!
!* 0.1 Declarations of arguments
@@ -1306,15 +1309,15 @@ END SUBROUTINE WRITE_SURFL1_MNH
!* 0. DECLARATIONS
! ------------
!
-USE MODE_FIELD, ONLY: TFIELDDATA,TYPELOG
-use MODE_IO_FIELD_WRITE, only: IO_Field_write
-USE MODE_MSG
-USE MODE_WRITE_SURF_MNH_TOOLS
-!
USE MODD_CONF_n, ONLY: CSTORAGE_TYPE
+use modd_field, only: tfielddata, TYPELOG
USE MODD_IO, ONLY: TFILE_SURFEX
USE MODD_IO_SURF_MNH, ONLY: CMASK
-!
+
+use MODE_IO_FIELD_WRITE, only: IO_Field_write
+USE MODE_MSG
+USE MODE_WRITE_SURF_MNH_TOOLS
+
IMPLICIT NONE
!
!* 0.1 Declarations of arguments
@@ -1389,17 +1392,16 @@ END SUBROUTINE WRITE_SURFL0_MNH
!* 0. DECLARATIONS
! ------------
!
-USE MODE_FIELD, ONLY: TFIELDDATA, TYPEDATE
+USE MODD_CONF_n, ONLY: CSTORAGE_TYPE
+use modd_field, only: tfielddata, TYPEDATE
+USE MODD_IO, ONLY: TFILE_SURFEX
+USE MODD_TYPE_DATE
+
use MODE_IO_FIELD_WRITE, only: IO_Field_write
USE MODE_IO_FILE
USE MODE_MSG
USE MODE_WRITE_SURF_MNH_TOOLS
-!
-USE MODD_CONF_n, ONLY: CSTORAGE_TYPE
-USE MODD_IO, ONLY: TFILE_SURFEX
-USE MODD_TYPE_DATE
-!
-!
+
IMPLICIT NONE
!
!* 0.1 Declarations of arguments
@@ -1483,15 +1485,14 @@ END SUBROUTINE WRITE_SURFT0_MNH
!* 0. DECLARATIONS
! ------------
!
-USE MODE_FIELD, ONLY: TFIELDDATA, TYPEINT, TYPEREAL
+use modd_field, only: tfielddata, TYPEINT, TYPEREAL
+USE MODD_IO, ONLY: TFILE_SURFEX
+USE MODD_CONF_n, ONLY: CSTORAGE_TYPE
+
use MODE_IO_FIELD_WRITE, only: IO_Field_write
USE MODE_IO_FILE
USE MODE_MSG
-!
-USE MODD_IO, ONLY: TFILE_SURFEX
-USE MODD_CONF_n, ONLY: CSTORAGE_TYPE
-!
-!
+
IMPLICIT NONE
!
!* 0.1 Declarations of arguments
diff --git a/src/MNH/zsmt_pgd.f90 b/src/MNH/zsmt_pgd.f90
index 7731c2dcf7524bf48901c17ce96a42f87633a309..b7c97c10a8e1faffcd9225f65eb62b282cc8273e 100644
--- a/src/MNH/zsmt_pgd.f90
+++ b/src/MNH/zsmt_pgd.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2005-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2005-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.
@@ -67,6 +67,7 @@ END MODULE MODI_ZSMT_PGD
!
!* 0. DECLARATIONS
!
+use modd_field, only: tfielddata, TYPEREAL
USE MODD_IO, ONLY : TFILEDATA
USE MODD_PARAMETERS, ONLY : JPHEXT, XUNDEF
!
@@ -77,7 +78,6 @@ USE MODE_ll , ONLY : GET_DIM_EXT_ll , ADD2DFIELD_ll , CLEANLIST_ll , UPDA
USE MODD_ARGSLIST_ll, ONLY : LIST_ll
USE MODE_SUM_ll
use mode_tools_ll, only: GET_INDICE_ll
-USE MODE_FIELD, ONLY: TFIELDDATA, TYPEREAL
!
IMPLICIT NONE
!