From 45a879f09ad6d7a68fda3615879fb8322a651ec3 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@cnrs.fr>
Date: Tue, 24 Sep 2024 09:37:58 +0200
Subject: [PATCH] Philippe 24/09/2024: IO: remove IO_Transfer_list_addto
(file_for_xtransfer)
---
src/LIB/SURCOUCHE/src/mode_io_file.f90 | 51 +-------------------------
src/LIB/SURCOUCHE/src/system_mnh.f90 | 42 ---------------------
2 files changed, 1 insertion(+), 92 deletions(-)
delete mode 100644 src/LIB/SURCOUCHE/src/system_mnh.f90
diff --git a/src/LIB/SURCOUCHE/src/mode_io_file.f90 b/src/LIB/SURCOUCHE/src/mode_io_file.f90
index 3841a5ceb..3196588b8 100644
--- a/src/LIB/SURCOUCHE/src/mode_io_file.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io_file.f90
@@ -41,6 +41,7 @@
! P. Wautelet 19/08/2022: bugfix: IO_File_check_format_exist: broadcast cformat if changed
! P. Wautelet 13/01/2023: IO_File_close: add optional dummy argument TPDTMODELN to force written model time
! P. Wautelet 16/09/2024: remove unnecessary .des files
+! P. Wautelet 24/09/2024: remove IO_Transfer_list_addto (file_for_xtransfer)
!-----------------------------------------------------------------
module mode_io_file
@@ -584,8 +585,6 @@ SELECT CASE(TPFILE%CTYPE)
#endif
end if
!
- CALL IO_Transfer_list_addto(TPFILE)
- !
! Close all Zsplit subfiles
SUBFILES: DO JI = 1,TPFILE%NSUBFILES_IOZ
TZFILE_IOZ => TPFILE%TFILES_IOZ(JI)%TFILE
@@ -633,54 +632,6 @@ IF (PRESENT(KRESP)) KRESP=IRESP
END SUBROUTINE IO_File_close
-subroutine IO_Transfer_list_addto(TPFILE)
-
-USE MODD_CONF, ONLY: CPROGRAM
-
-USE MODI_SYSTEM_MNH
-
-TYPE(TFILEDATA), INTENT(INOUT) :: TPFILE ! File structure
-
-CHARACTER(len=:),allocatable :: YFILEM ! name of the file
-CHARACTER(len=:),allocatable :: YCPIO
-CHARACTER(len=:),allocatable :: YTRANS
-CHARACTER(LEN=100) :: YCOMMAND
-INTEGER, SAVE :: ICPT = 0
-
-YFILEM = TPFILE%CNAME
-
-CALL PRINT_MSG(NVERB_DEBUG,'IO','IO_Transfer_list_addto','called for '//TRIM(YFILEM))
-
-IF (TPFILE%LMASTER .AND. CPROGRAM/='LFICDF') THEN
- !! Write in pipe
-#if defined(MNH_SX5)
- YTRANS='nectransfer.x'
-#else
- YTRANS='xtransfer.x'
-#endif
-
- SELECT CASE (TPFILE%NLFITYPE)
- CASE(:-1,3:)
- CALL PRINT_MSG(NVERB_ERROR,'IO','IO_Transfer_list_addto',TRIM(YFILEM)//': incorrect NLFITYPE')
- CASE(0)
- YCPIO='NIL'
- CASE(1)
- YCPIO='MESONH'
- CASE(2)
- CALL PRINT_MSG(NVERB_DEBUG,'IO','IO_Transfer_list_addto','file '//TRIM(YFILEM)//' not transferred')
- END SELECT
-
- if (TPFILE%NLFITYPE==0 .or. TPFILE%NLFITYPE==1) then
- ICPT=ICPT+1
- WRITE (YCOMMAND,'(A," ",A," ",A," >> OUTPUT_TRANSFER",I3.3," 2>&1 &")') YTRANS,YCPIO,TRIM(YFILEM),ICPT
- CALL PRINT_MSG(NVERB_DEBUG,'IO','IO_Transfer_list_addto','YCOMMAND='//TRIM(YCOMMAND))
- CALL SYSTEM_MNH(YCOMMAND)
- end if
-END IF
-
-end subroutine IO_Transfer_list_addto
-
-
subroutine IO_File_check_format_exist( tpfile )
use modd_mpif
diff --git a/src/LIB/SURCOUCHE/src/system_mnh.f90 b/src/LIB/SURCOUCHE/src/system_mnh.f90
deleted file mode 100644
index b43981265..000000000
--- a/src/LIB/SURCOUCHE/src/system_mnh.f90
+++ /dev/null
@@ -1,42 +0,0 @@
-!MNH_LIC Copyright 1994-2019 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.
-!-----------------------------------------------------------------
-SUBROUTINE SYSTEM_MNH(HCOMMAND)
-!!
-!! PURPOSE
-!! -------
-!! This subroutine writes the 1 command line HCOMMAND
-!! in the file pipe_name and flushes the buffer.
-!! Modifications:
-!! Philippe Wautelet: 10/01/2019: use NEWUNIT argument of OPEN
-!!
-!!
-!* 0. DECLARATIONS
-! ------------
-!
- IMPLICIT NONE
-!
-!* 0.1 Declaration of arguments
-! ------------------------
-!
- CHARACTER(LEN=*) :: HCOMMAND
-!
-!* 0.2 Declaration of local variables
-! ------------------------------
-#ifdef MNH_SX5
- CHARACTER(LEN=*),PARAMETER :: CFILE="file_for_nectransfer"
-#else
- CHARACTER(LEN=*),PARAMETER :: CFILE="file_for_xtransfer"
-#endif
- INTEGER :: IUNIT
-!
-!
-!
- IUNIT = -1
- OPEN(NEWUNIT=IUNIT,FILE=CFILE,ACCESS="sequential",FORM="formatted",POSITION="append")
- WRITE(IUNIT,*) HCOMMAND
- CLOSE(IUNIT)
-
-END SUBROUTINE SYSTEM_MNH
--
GitLab