diff --git a/src/common/aux/modd_field.F90 b/src/common/aux/modd_field.F90
index be5755c73358e0bfa715f4e4f4120b1a53364927..9ea5693a721b81bf7771dd8e5a1ac6b366938a7d 100644
--- a/src/common/aux/modd_field.F90
+++ b/src/common/aux/modd_field.F90
@@ -4,7 +4,7 @@ MODULE MODD_FIELD
   INTEGER, PARAMETER :: NMNHMAXDIMS = 6 ! Cannot be less than 6
   INTEGER,PARAMETER :: TYPEUNDEF = -1, TYPEINT = 1, TYPELOG = 2, TYPEREAL = 3, TYPECHAR = 4, TYPEDATE = 5
 !
-TYPE TFIELDDATA
+TYPE TFIELDMETADATA
   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)
@@ -24,6 +24,5 @@ TYPE TFIELDDATA
   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)
   LOGICAL            :: LTIMEDEP  = .FALSE. !Is the field time-dependent?
-END TYPE TFIELDDATA
-!
+END TYPE TFIELDMETADATA
 END MODULE MODD_FIELD
diff --git a/src/common/aux/mode_io_field_write.F90 b/src/common/aux/mode_io_field_write.F90
index fc33ce8dda90e11b4caf5381046372c30ade6418..aa739877b4202d245da26e70bc48c21513390a57 100644
--- a/src/common/aux/mode_io_field_write.F90
+++ b/src/common/aux/mode_io_field_write.F90
@@ -1,13 +1,13 @@
 MODULE MODE_IO_FIELD_WRITE
 USE MODD_IO,         ONLY: TFILEDATA
-USE MODD_FIELD, ONLY: TFIELDDATA
+USE MODD_FIELD, ONLY: TFIELDMETADATA
 CONTAINS
 SUBROUTINE IO_FIELD_WRITE(TPFILE,TZFIELD,PFIELD)
     !
     !*      0.1   Declarations of arguments
     !
     TYPE(TFILEDATA),           INTENT(IN) :: TPFILE
-    TYPE(TFIELDDATA), INTENT(IN)          :: TZFIELD
+    TYPE(TFIELDMETADATA), INTENT(IN)      :: TZFIELD
     REAL, DIMENSION(:,:,:),    INTENT(IN) :: PFIELD   ! array containing the data field
     !
     CALL ABORT
@@ -20,7 +20,7 @@ SUBROUTINE IO_FIELD_WRITE_PHY(D,TPFILE,TZFIELD,PFIELD)
     !
     TYPE(DIMPHYEX_t),          INTENT(IN) :: D
     TYPE(TFILEDATA),           INTENT(IN) :: TPFILE
-    TYPE(TFIELDDATA), INTENT(IN)          :: TZFIELD
+    TYPE(TFIELDMETADATA), INTENT(IN)      :: TZFIELD
     REAL, DIMENSION(D%NIT,D%NJT,D%NKT),    INTENT(IN) :: PFIELD   ! array containing the data field
     !
     CALL ABORT