From cf4f0e46a993293713d2ed15b542bb8235660bfb Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@cnrs.fr>
Date: Tue, 24 Sep 2024 16:08:39 +0200
Subject: [PATCH] Philippe 24/09/2024: minor: remove some unused variables
related to OUTPUT_LISTING0
---
src/MNH/define_maskn.f90 | 3 ---
src/MNH/gps_zenith.f90 | 6 ++----
src/MNH/horibl.f90 | 6 +-----
src/MNH/latlon_to_xy.f90 | 2 --
src/MNH/mode_interpol_beam.f90 | 13 +++----------
src/MNH/set_msk.f90 | 4 ----
src/MNH/spectre.f90 | 3 +--
src/MNH/xy_to_latlon.f90 | 2 --
8 files changed, 7 insertions(+), 32 deletions(-)
diff --git a/src/MNH/define_maskn.f90 b/src/MNH/define_maskn.f90
index 561a13ab9..14f997af3 100644
--- a/src/MNH/define_maskn.f90
+++ b/src/MNH/define_maskn.f90
@@ -59,7 +59,6 @@ END MODULE MODI_DEFINE_MASK_n
USE MODD_DIM_n
USE MODD_PARAMETERS
USE MODD_CONF
-USE MODD_LUNIT
USE MODD_NESTING
USE MODD_NEST_PGD_n
!
@@ -77,7 +76,6 @@ IMPLICIT NONE
!
!* 0.2 declarations of local variables
!
-INTEGER :: ILUOUT0
INTEGER :: IRESP
INTEGER :: ISON
INTEGER :: JLOOP
@@ -91,7 +89,6 @@ TYPE(ZONE_ll) :: TZCOARSESONGLB ! global son domain in father grid
TYPE(ZONE_ll), DIMENSION(1) :: TZCOARSESONLCL ! intersection of global son domain and local father subdomain
!-------------------------------------------------------------------------------
!
-ILUOUT0 = TLUOUT0%NLU
IMI=GET_CURRENT_MODEL_INDEX()
!
ALLOCATE ( NNESTMASK (NIMAX+2*JPHEXT,NJMAX+2*JPHEXT,1+COUNT(NDAD(:)==IMI)))
diff --git a/src/MNH/gps_zenith.f90 b/src/MNH/gps_zenith.f90
index 5fe9cd741..705fdb199 100644
--- a/src/MNH/gps_zenith.f90
+++ b/src/MNH/gps_zenith.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2004-2022 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2004-2024 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,7 +81,6 @@ USE MODD_GRID, ONLY: XLONORI, XLATORI
USE MODD_GRID_n
USE MODE_GRIDPROJ
USE MODD_IO, ONLY: TFILEDATA
-USE MODD_LUNIT
USE MODD_PARAMETERS
!
USE MODE_IO_FILE, ONLY: IO_File_close, IO_File_open
@@ -118,7 +117,7 @@ INTEGER :: IJB,IJE ! Loop limits for coordinate Y
INTEGER :: IKB,IKE ! Loop limits for coordinate Z
INTEGER :: JI,JJ,JK ! Loop variables of control
INTEGER :: IIU,IJU,IKU ! Loop variables of model
-INTEGER :: ILUOUT0, IRESP ! file unit and return code for output
+INTEGER :: IRESP ! return code for output
INTEGER :: JL !
REAL, DIMENSION(:,:,:),ALLOCATABLE :: ZZHATM ! mass level altitude
!-------- Physical parameters for the integration ----------------------------
@@ -156,7 +155,6 @@ TYPE(TFILEDATA),POINTER :: TZFILE
!* 1. INTIALIZE DIMENSIONS AND ALLOCATE ARRAYS
! ----------------------------------------
!
-ILUOUT0 = TLUOUT0%NLU
TZFILE => NULL()
CALL GET_INDICE_ll(IIB,IJB,IIE,IJE)
IIU = SIZE (PTEMP,1)
diff --git a/src/MNH/horibl.f90 b/src/MNH/horibl.f90
index cab3e58d9..f157b08a2 100644
--- a/src/MNH/horibl.f90
+++ b/src/MNH/horibl.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1999-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1999-2024 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.
@@ -136,7 +136,6 @@ END MODULE MODI_HORIBL
!* 0. DECLARATIONS
! ---------------
!
-USE MODD_LUNIT
USE MODD_PARAMETERS, ONLY: XUNDEF
!
USE MODE_MSG
@@ -211,7 +210,6 @@ INTEGER :: IINLA ! Number of parallel
REAL :: ZVECT ! -1 if input is vectorial
LOGICAL :: LDLSM ! Specify if land/sea mask is present or not
! Variables used for the out put listing
-INTEGER :: ILUOUT0 ! Logical unit number
! Loop counters
INTEGER :: JOPOS ! Output position
INTEGER :: JIPOS ! Input position
@@ -230,8 +228,6 @@ INTEGER :: IRESP ! Return code of FM-routines
!
CALL SECOND_MNH(ZTIME1)
!
-ILUOUT0 = TLUOUT0%NLU
-!
!------------------------------------------------------------------------------
!
!* 1. DETERMINATION of the latitude of the poles (depending of the latitude
diff --git a/src/MNH/latlon_to_xy.f90 b/src/MNH/latlon_to_xy.f90
index 3f3063175..d811aed87 100644
--- a/src/MNH/latlon_to_xy.f90
+++ b/src/MNH/latlon_to_xy.f90
@@ -71,7 +71,6 @@ USE MODD_IO, ONLY: TFILEDATA
USE MODD_PGDDIM
USE MODD_PGDGRID
USE MODD_PARAMETERS
-USE MODD_LUNIT
!
USE MODE_FIELD, ONLY: INI_FIELD_LIST
USE MODE_GRIDPROJ
@@ -100,7 +99,6 @@ CHARACTER(LEN=NFILENAMELGTMAX) :: YNAME ! true name of input FM file
CHARACTER(LEN=NFILENAMELGTMAX) :: YDAD ! name of dad of input FM file
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.
REAL :: ZLAT ! input latitude
REAL :: ZLON ! input longitude
diff --git a/src/MNH/mode_interpol_beam.f90 b/src/MNH/mode_interpol_beam.f90
index 6c16a7a8f..ce8337906 100644
--- a/src/MNH/mode_interpol_beam.f90
+++ b/src/MNH/mode_interpol_beam.f90
@@ -1,12 +1,8 @@
-!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2004-2024 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 version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
!-----------------------------------------------------------------
-!--------------- special set of characters for RCS information
-!-----------------------------------------------------------------
-! $Source$ $Revision$ $Date$
-!-----------------------------------------------------------------
! #########################
MODULE MODE_INTERPOL_BEAM
! #########################
@@ -112,8 +108,7 @@ CONTAINS
II=COUNT(PXHATM(:) <= PX_RAY) ! number of mass points x-coordinates less than x-position of current ray point
IJ=COUNT(PYHATM(:) <= PY_RAY)
IF ( (II <= IIE-1) .AND. (II >= IIB) .AND. (IJ <= IJE-1) .AND. (IJ >= IJB) ) THEN
- ! WRITE(ILUOUT0,*) 'inside the horizontal domain '
- ZXCOEF=(PX_RAY-PXHATM(II))/(PXHATM(II+1)-PXHATM(II))
+ ZXCOEF=(PX_RAY-PXHATM(II))/(PXHATM(II+1)-PXHATM(II))
ZYCOEF=(PY_RAY-PYHATM(IJ))/(PYHATM(IJ+1)-PYHATM(IJ))
! compute nearest vertical level below the nearest horizontal points (resp.)
IK00=COUNT(PZM(II,IJ,:) <= PZ_RAY)
@@ -231,7 +226,6 @@ CONTAINS
II=COUNT(PXHATM(:) <= PX_RAY(JAZ,JL,JH,JV)) ! number of mass points x-coordinates less than x-position of current ray point
IJ=COUNT(PYHATM(:) <= PY_RAY(JAZ,JL,JH,JV))
IF ( (II <= IIE-1) .AND. (II >= IIB) .AND. (IJ <= IJE-1) .AND. (IJ >= IJB) ) THEN
- ! WRITE(ILUOUT0,*) 'inside the horizontal domain '
ZXCOEF=(PX_RAY(JAZ,JL,JH,JV)-PXHATM(II))/(PXHATM(II+1)-PXHATM(II))
ZYCOEF=(PY_RAY(JAZ,JL,JH,JV)-PYHATM(IJ))/(PYHATM(IJ+1)-PYHATM(IJ))
! compute nearest vertical level below the nearest horizontal points (resp.)
@@ -357,7 +351,6 @@ CONTAINS
II=COUNT(PXHATM(:) <= PX_RAY(JI,JEL,JAZ,JL,JH,JV)) ! number of mass points x-coordinates less than x-position of current ray point
IJ=COUNT(PYHATM(:) <= PY_RAY(JI,JEL,JAZ,JL,JH,JV))
IF ( (II <= IIE) .AND. (II >= IIB) .AND. (IJ <= IJE) .AND. (IJ >= IJB) ) THEN
- ! WRITE(ILUOUT0,*) 'inside the horizontal domain '
ZXCOEF=(PX_RAY(JI,JEL,JAZ,JL,JH,JV)-PXHATM(II))/(PXHATM(II+1)-PXHATM(II))
ZYCOEF=(PY_RAY(JI,JEL,JAZ,JL,JH,JV)-PYHATM(IJ))/(PYHATM(IJ+1)-PYHATM(IJ))
! compute nearest vertical level below the nearest horizontal points (resp.)
diff --git a/src/MNH/set_msk.f90 b/src/MNH/set_msk.f90
index 295f93e75..1fc5a0620 100644
--- a/src/MNH/set_msk.f90
+++ b/src/MNH/set_msk.f90
@@ -78,7 +78,6 @@ USE MODD_CST , ONLY : XRHOLW
USE MODD_PARAMETERS
USE MODD_CONF
USE MODE_ll
-USE MODD_LUNIT, ONLY : TLUOUT0
USE MODD_ARGSLIST_ll, ONLY : LIST_ll
!
!
@@ -110,7 +109,6 @@ REAL,DIMENSION(:,:), ALLOCATABLE :: ZMEANX, ZMEANXY
REAL :: ZAVER_PR,ZREPSILON,ZTOTWATER,ZREPSILON1
REAL :: ZCRS,ZCEXRS,ZCEXVT,ZREPSILON2,ZREPSILON3
INTEGER :: I,J,JILOOP,JJLOOP,JKLOOP
-INTEGER :: ILUOUT0
INTEGER :: IRESP
INTEGER :: IBUIL,IBUJL,IBUIH,IBUJH
!INTEGER :: IBUSIL,IBUSJL,IBUSIH,IBUSJH
@@ -118,8 +116,6 @@ INTEGER :: IBUIL,IBUJL,IBUIH,IBUJH
!TYPE(LIST_ll), POINTER :: TZFIELDS_ll ! list of fields to exchange
!-------------------------------------------------------------------------------
!
-ILUOUT0 = TLUOUT0%NLU
-!
!* 1. COMPUTES THE PHYSICAL SUBDOMAIN BOUNDS
! ---------------------------------------
!
diff --git a/src/MNH/spectre.f90 b/src/MNH/spectre.f90
index 9b21c596d..9fcffa112 100644
--- a/src/MNH/spectre.f90
+++ b/src/MNH/spectre.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2011-2023 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2011-2024 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,7 +56,6 @@ IMPLICIT NONE
CHARACTER (LEN=NFILENAMELGTMAX), DIMENSION(1) :: YINIFILE ! names of the INPUT FM-file
CHARACTER (LEN=NFILENAMELGTMAX) :: YOUTFILE ! names of the OUTPUT FM-file
INTEGER :: IRESP ! return code in FM routines
-INTEGER :: ILUOUT0 ! Logical unit number for the output listing
INTEGER :: ILUNAM ! Logical unit numbers for the namelist file
! and for output_listing file
LOGICAL :: GFOUND ! Return code when searching namelist
diff --git a/src/MNH/xy_to_latlon.f90 b/src/MNH/xy_to_latlon.f90
index eb7003303..ed3e27781 100644
--- a/src/MNH/xy_to_latlon.f90
+++ b/src/MNH/xy_to_latlon.f90
@@ -69,7 +69,6 @@ USE MODD_IO, ONLY: TFILEDATA
USE MODD_PGDDIM
USE MODD_PGDGRID
USE MODD_PARAMETERS
-USE MODD_LUNIT
!
USE MODE_FIELD, ONLY: INI_FIELD_LIST
USE MODE_GRIDPROJ
@@ -96,7 +95,6 @@ CHARACTER(LEN=NFILENAMELGTMAX) :: YNAME ! true name of input FM file
CHARACTER(LEN=NFILENAMELGTMAX) :: YDAD ! name of dad of input FM file
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.
REAL :: ZI,ZJ ! input positions of the point
INTEGER :: II,IJ ! integer positions of the point
--
GitLab