Philippe 10/01/2019: minor: removed unused variables

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)

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,

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

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

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

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

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

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

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

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