From 560e0a84c7192faae8478f8950db072d7fe36717 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@cnrs.fr>
Date: Fri, 4 Oct 2024 11:39:27 +0200
Subject: [PATCH] Philippe 04/10/2024: minor: remove some unnecessary use
modules and variables
---
src/LIB/SURCOUCHE/src/mode_io_field_read.f90 | 1 -
src/LIB/SURCOUCHE/src/mode_io_field_write.f90 | 5 -----
src/MNH/write_lfifm1_for_diag_supp.f90 | 3 ---
3 files changed, 9 deletions(-)
diff --git a/src/LIB/SURCOUCHE/src/mode_io_field_read.f90 b/src/LIB/SURCOUCHE/src/mode_io_field_read.f90
index d0d6ad4ee..7ce733525 100644
--- a/src/LIB/SURCOUCHE/src/mode_io_field_read.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io_field_read.f90
@@ -559,7 +559,6 @@ USE MODE_GA
USE MODI_GET_HALO
#endif
USE MODE_IO_TOOLS, ONLY: IO_Level2filenumber_get
-USE MODE_IO_MANAGE_STRUCT, ONLY: IO_File_find_byname
USE MODE_MNH_TIMING, ONLY: SECOND_MNH2
USE MODE_SCATTER_ll
!
diff --git a/src/LIB/SURCOUCHE/src/mode_io_field_write.f90 b/src/LIB/SURCOUCHE/src/mode_io_field_write.f90
index 81f7ae029..358378245 100644
--- a/src/LIB/SURCOUCHE/src/mode_io_field_write.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io_field_write.f90
@@ -546,8 +546,6 @@ end subroutine IO_Ndimlist_reduce
SUBROUTINE IO_Field_write_byfield_X0(TPFILE,TPFIELD,PFIELD,KRESP)
USE MODD_IO, ONLY: GSMONOPROC, ISP
!
- USE MODE_IO_MANAGE_STRUCT, ONLY: IO_File_find_byname
- !
IMPLICIT NONE
!
!* 0.1 Declarations of arguments
@@ -647,7 +645,6 @@ end subroutine IO_Ndimlist_reduce
!
USE MODE_ALLOCBUFFER_ll
USE MODE_GATHER_ll
- USE MODE_IO_MANAGE_STRUCT, ONLY: IO_File_find_byname
!
IMPLICIT NONE
!
@@ -1040,7 +1037,6 @@ end subroutine IO_Ndimlist_reduce
USE MODE_GA
#endif
USE MODE_GATHER_ll
- USE MODE_IO_MANAGE_STRUCT, ONLY: IO_File_find_byname
USE MODE_IO_TOOLS, ONLY: IO_Level2filenumber_get
USE MODE_MNH_TIMING, ONLY: SECOND_MNH2
!
@@ -2810,7 +2806,6 @@ end subroutine IO_Ndimlist_reduce
SUBROUTINE IO_Field_write_byfield_L0(TPFILE,TPFIELD,OFIELD,KRESP)
USE MODD_IO, ONLY: GSMONOPROC, ISP
!
- USE MODE_IO_MANAGE_STRUCT, ONLY: IO_File_find_byname
!* 0. DECLARATIONS
! ------------
!
diff --git a/src/MNH/write_lfifm1_for_diag_supp.f90 b/src/MNH/write_lfifm1_for_diag_supp.f90
index 86dd93540..041a53447 100644
--- a/src/MNH/write_lfifm1_for_diag_supp.f90
+++ b/src/MNH/write_lfifm1_for_diag_supp.f90
@@ -131,7 +131,6 @@ USE MODD_PARAM_RAD_n, only: NRAD_COLNBR
USE MODD_RADIATIONS_N, ONLY: NCLEARCOL_TM1, NDLON, NFLEV, NSTATM, &
XAER, XAZIM, XCCO2, XDIR_ALB, XDIRFLASWD, XDIRSRFSWD, XDTHRAD, XEMIS, &
XFLALWD, XSCA_ALB, XSCAFLASWD, XSTATM, XTSRAD, XZENITH
-USE MODD_RAD_TRANSF, ONLY: JPGEOST
USE MODD_REF_n, ONLY: XRHODREF
USE MODD_SALT, ONLY: LSALT
USE MODD_TIME_n, ONLY: TDTCUR
@@ -182,8 +181,6 @@ REAL, DIMENSION(:,:,:), ALLOCATABLE :: ZWORK31,ZTEMP
!
! variables needed for the transfer radiatif diagnostic code
INTEGER :: ITOTGEO
-INTEGER, DIMENSION (JPGEOST) :: INDGEO
-CHARACTER(LEN=8), DIMENSION (JPGEOST) :: YNAM_SAT
REAL, DIMENSION(:,:), ALLOCATABLE :: ZIRBT, ZWVBT
REAL :: ZUNDEF ! undefined value in SURFEX
!
--
GitLab