From 0e4bc25b19da1468b82cceeb12c4bda06944eec6 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 10 Jan 2019 14:11:01 +0100
Subject: [PATCH] Philippe 10/01/2019: minor: removed unused variables
---
src/MNH/ini_modeln.f90 | 1 -
src/MNH/ini_segn.f90 | 2 +-
src/MNH/ini_size_spawn.f90 | 2 --
src/MNH/latlon_to_xy.f90 | 1 -
src/MNH/open_prc_files.f90 | 1 -
src/MNH/prep_ideal_case.f90 | 2 --
src/MNH/prep_pgd.f90 | 1 -
src/MNH/prep_real_case.f90 | 2 --
src/MNH/prep_surfex.f90 | 2 --
src/MNH/xy_to_latlon.f90 | 1 -
10 files changed, 1 insertion(+), 14 deletions(-)
diff --git a/src/MNH/ini_modeln.f90 b/src/MNH/ini_modeln.f90
index 84f0fea5d..ce192d434 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 a8e99f7c1..a41ba0c46 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 5e9dcd590..ad4c604b0 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 13abc2383..eea3c591e 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 b5c80fd3b..5f60cc3da 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 c72951f5b..eb97a9091 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 45a14fcf0..fefe3a572 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 1bbe26ecb..a11651b58 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 69040521e..1bf961ea0 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 8c58dddca..606aa70aa 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
--
GitLab