diff --git a/src/MNH/ini_modeln.f90 b/src/MNH/ini_modeln.f90
index 84f0fea5d09a84f8503047f62cac9360d958975d..ce192d4340326112ec57c0ee19f7d7d1aa9e24da 100644
--- a/src/MNH/ini_modeln.f90
+++ b/src/MNH/ini_modeln.f90
@@ -461,7 +461,6 @@ TYPE(TFILEDATA), INTENT(IN) :: TPINIFILE ! Initial file
!
INTEGER :: JSV ! Loop index
INTEGER :: IRESP ! Return code of FM routines
-INTEGER :: ININAR ! File management variable
INTEGER :: ILUOUT ! Logical unit number of output-listing
CHARACTER(LEN=28) :: YNAME
INTEGER :: IIU ! Upper dimension in x direction (local)
diff --git a/src/MNH/ini_segn.f90 b/src/MNH/ini_segn.f90
index a8e99f7c106eeb41eb70a88d1bc74444ed2780e7..a41ba0c466abec963d243764f448d664ae3a4a61 100644
--- a/src/MNH/ini_segn.f90
+++ b/src/MNH/ini_segn.f90
@@ -212,7 +212,7 @@ CHARACTER (LEN=2) :: YMI ! string for model index
INTEGER :: ILUOUT ! Logical unit number
! associated with CLUOUT
!
-INTEGER :: IRESP,ILUSEG,ININAR ! File management variables
+INTEGER :: IRESP,ILUSEG ! File management variables
CHARACTER (LEN=5) :: YCONF ! Local variables which have
LOGICAL :: GFLAT ! the same definition as the
LOGICAL :: GUSERV,GUSERC,GUSERR,GUSERI ! variables in module MODD_CONF,
diff --git a/src/MNH/ini_size_spawn.f90 b/src/MNH/ini_size_spawn.f90
index 5e9dcd590e7dd73d0f2799ea585c1356df5efc9d..ad4c604b06ac09cf053b8dada638f493b1af0413 100644
--- a/src/MNH/ini_size_spawn.f90
+++ b/src/MNH/ini_size_spawn.f90
@@ -115,8 +115,6 @@ TYPE(TFILEDATA), INTENT(IN) :: TPINIFILE ! Model 1 file
!
INTEGER :: IRESP ! Return codes in FM routines
INTEGER :: ILUOUT ! Logical unit number for the output listing
-INTEGER :: ININAR ! Number of articles present in the LFIFM file
-CHARACTER(LEN=2) :: YDIR ! Type of the data field in LFIFM file
!
CHARACTER (LEN=5) :: YPRESOPT ! Pressure solver option of model 1
INTEGER :: IITR ! Iterations of pressure solver of model 1
diff --git a/src/MNH/latlon_to_xy.f90 b/src/MNH/latlon_to_xy.f90
index 13abc2383eee935122f8e5fc796f6ea2b654f3b5..eea3c591efb37e1539b6864dd95473b7420a98d7 100644
--- a/src/MNH/latlon_to_xy.f90
+++ b/src/MNH/latlon_to_xy.f90
@@ -89,7 +89,6 @@ CHARACTER(LEN=2) :: YSTORAGE_TYPE
INTEGER :: INAM ! Logical unit for namelist file
INTEGER :: ILUOUT0 ! Logical unit for output file.
INTEGER :: IRESP ! Return-code if problem eraised.
-INTEGER :: ININAR
REAL :: ZLAT ! input latitude
REAL :: ZLON ! input longitude
REAL :: ZXHAT ! output conformal coodinate x
diff --git a/src/MNH/open_prc_files.f90 b/src/MNH/open_prc_files.f90
index b5c80fd3b9fc64d209ef3a84dff835898a9c99f4..5f60cc3da7a6f7176fabc61d3b90fd2167da83e8 100644
--- a/src/MNH/open_prc_files.f90
+++ b/src/MNH/open_prc_files.f90
@@ -138,7 +138,6 @@ TYPE(TFILEDATA),POINTER, INTENT(OUT) :: TPPGDFILE ! physiographic data file
INTEGER :: IRESP ! return-code if problems eraised
INTEGER :: IPRE_REAL1 ! logical unit for file PRE_REAL1
INTEGER :: ILUOUT0 ! logical unit for listing file
-INTEGER :: ININAR ! number of articles initially present in a FM file
LOGICAL :: GFOUND ! Return code when searching namelist
INTEGER :: ILEN
CHARACTER(LEN=28) :: YFILE
diff --git a/src/MNH/prep_ideal_case.f90 b/src/MNH/prep_ideal_case.f90
index c72951f5be3692fd9674ad5fd36a953322b1dc8b..eb97a9091e0451dfe0243d9b393270257c01b9f6 100644
--- a/src/MNH/prep_ideal_case.f90
+++ b/src/MNH/prep_ideal_case.f90
@@ -448,8 +448,6 @@ INTEGER :: NLUPRE,NLUOUT ! Logical unit numbers for EXPRE file
INTEGER :: NRESP ! return code in FM routines
INTEGER :: NTYPE ! type of file (cpio or not)
INTEGER(KIND=LFI_INT) :: NNPRAR ! number of articles predicted in the LFIFM file
-INTEGER :: NNINAR ! number of articles present in
- ! the LFIFM file
LOGICAL :: GFOUND ! Return code when searching namelist
!
INTEGER :: JLOOP,JILOOP,JJLOOP ! Loop indexes
diff --git a/src/MNH/prep_pgd.f90 b/src/MNH/prep_pgd.f90
index 45a14fcf0508cf45879debe90dec56d87b90d3aa..fefe3a572160f3fbd8d14f4b4791eb4a43ced4c8 100644
--- a/src/MNH/prep_pgd.f90
+++ b/src/MNH/prep_pgd.f90
@@ -126,7 +126,6 @@ INTEGER :: IRESP ! return code for I/O
INTEGER :: ILUOUT0
INTEGER :: ILUNAM
INTEGER :: IINFO_LL
-INTEGER :: ININAR
LOGICAL :: GFOUND
CHARACTER(LEN=28) :: YDAD =' ' ! name of dad of input FM file
CHARACTER(LEN=28) :: CPGDFILE ='PGDFILE' ! name of the output file
diff --git a/src/MNH/prep_real_case.f90 b/src/MNH/prep_real_case.f90
index 1bbe26ecb894e34c1c89dde21fe674c6bae779ee..a11651b58556f0605edf0f6d6f4e4a325ad29826 100644
--- a/src/MNH/prep_real_case.f90
+++ b/src/MNH/prep_real_case.f90
@@ -488,8 +488,6 @@ REAL,DIMENSION(:,:,:), ALLOCATABLE:: ZJ ! Jacobian
INTEGER :: ILUOUT0 ! logical unit for listing file
INTEGER :: IPRE_REAL1 ! logical unit for namelist file
INTEGER :: IRESP ! return code in FM routines
-INTEGER :: ININAR ! number of articles initially
- ! present in a FM file
LOGICAL :: GFOUND ! Return code when searching namelist
!
REAL :: ZSTART, ZEND, ZTIME1, ZTIME2, ZTOT, ZALL ! for computing time analysis
diff --git a/src/MNH/prep_surfex.f90 b/src/MNH/prep_surfex.f90
index 69040521e955c96f05312eeab4e62ebd18061d98..1bf961ea0cc76b82941a06ce6bce9bc7c332d6eb 100644
--- a/src/MNH/prep_surfex.f90
+++ b/src/MNH/prep_surfex.f90
@@ -75,8 +75,6 @@ CHARACTER(LEN=28) :: YPGDFILE ! name of the physiographic data
!
INTEGER :: ILUOUT0 ! logical unit for listing file
INTEGER :: IRESP ! return code in FM routines
-INTEGER :: ININAR ! number of articles initially
- ! present in a FM file
!
INTEGER :: IINFO_ll ! return code of // routines
CHARACTER (LEN=100) :: HCOMMENT
diff --git a/src/MNH/xy_to_latlon.f90 b/src/MNH/xy_to_latlon.f90
index 8c58dddcae5c521e8c9624539db53dafcd41ffc8..606aa70aaaba86ee8c7b3ab04b9c97af5501d05d 100644
--- a/src/MNH/xy_to_latlon.f90
+++ b/src/MNH/xy_to_latlon.f90
@@ -89,7 +89,6 @@ CHARACTER(LEN=2) :: YSTORAGE_TYPE
INTEGER :: INAM ! Logical unit for namelist file
INTEGER :: ILUOUT0 ! Logical unit for output file.
INTEGER :: IRESP ! Return-code if problem eraised.
-INTEGER :: ININAR
REAL :: ZI,ZJ ! input positions of the point
INTEGER :: II,IJ ! integer positions of the point
REAL :: ZXHAT ! output conformal coodinate x