Philippe 31/01/2019: removed transfer_file subroutine (useless)

src/MNH/mnhclose_write_cover_tex.f90

@@ -45,8 +45,6 @@ USE MODD_IO_ll,            ONLY: TFILEDATA
 USE MODE_FM,               ONLY: IO_FILE_CLOSE_ll
 USE MODE_IO_MANAGE_STRUCT, ONLY: IO_FILE_FIND_BYNAME
 !
-USE MODI_TRANSFER_FILE
-!
 !
 IMPLICIT NONE
 !
@@ -72,7 +70,6 @@ TZFILE => NULL()
 IF (TRIM(CPROGRAM)=='PGD') THEN
   CALL IO_FILE_FIND_BYNAME(YTEX,TZFILE,IRESP)
   CALL IO_FILE_CLOSE_ll(TZFILE)
-  CALL TRANSFER_FILE('fujitransfer.x','NIL',YTEX)
 END IF
 !-------------------------------------------------------------------------------
 !

src/MNH/transfer_file.f90

-!MNH_LIC Copyright 1994-2014 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.
-!-----------------------------------------------------------------
-!--------------- special set of characters for RCS information
-!-----------------------------------------------------------------
-! $Source$ $Revision$
-! masdev4_7 BUG1 2007/06/15 17:47:18
-!-----------------------------------------------------------------
-!#########################
-MODULE MODI_TRANSFER_FILE
-!#########################
-!
-INTERFACE
-      SUBROUTINE TRANSFER_FILE(HTRANS,HCPIO,HFILENAME)
-!
-CHARACTER(LEN=*), INTENT(IN) :: HTRANS    ! unix command for transfer
-CHARACTER(LEN=*), INTENT(IN) :: HCPIO     ! CPIO option
-CHARACTER(LEN=*), INTENT(IN) :: HFILENAME ! name of the file to transfer
-!
-END SUBROUTINE TRANSFER_FILE
-END INTERFACE
-END MODULE MODI_TRANSFER_FILE
-!
-!     ################################################
-      SUBROUTINE TRANSFER_FILE(HTRANS,HCPIO,HFILENAME)
-!     ################################################
-!
-!!****  *TRANSFER_FILE* - writes transfer.x command for a file in the pipe_name
-!! 
-!!    PURPOSE
-!!    -------
-!!    This subroutine writes the unix command line HTRANS HCPIO HFILENAME
-!!    in the file pipe_name and flushes the buffer.
-!!
-!!**  METHOD
-!!    ------
-!!
-!!    EXTERNAL
-!!    --------
-!!
-!!      Routine FLUSH : to flush the buffer
-!!     
-!!    IMPLICIT ARGUMENTS
-!!    ------------------
-!!
-!!    REFERENCE
-!!    ---------
-!!
-!!      Book 2
-!!
-!!    AUTHOR
-!!    ------
-!!	
-!!      V.Masson  Meteo-France
-!!
-!!    MODIFICATIONS
-!!    -------------
-!!      Original    10/04/95
-!!      modified by E.pesin 03/98 (for FUJITSU machine)
-!-------------------------------------------------------------------------------
-!
-!*       0.    DECLARATIONS
-!              ------------
-!
-IMPLICIT NONE
-!
-!*       0.1   Declaration of arguments
-!              ------------------------
-!
-CHARACTER(LEN=*), INTENT(IN) :: HTRANS    ! unix command for transfer
-CHARACTER(LEN=*), INTENT(IN) :: HCPIO     ! CPIO option
-CHARACTER(LEN=*), INTENT(IN) :: HFILENAME ! name of the file to transfer
-!
-!*       0.2   Declaration of local variables
-!              ------------------------------
-!
-CHARACTER(LEN=100)            :: YCOMMAND  ! command writen in pipe_name
-!
-!-------------------------------------------------------------------------------
-!
-WRITE(YCOMMAND,'(A," ",A," ",A," >> OUTPUT_TRANSFER 2>&1 &")') TRIM(HTRANS),TRIM(HCPIO),TRIM(HFILENAME)
-PRINT *,'YCOMMAND =',YCOMMAND
-!
-print*, 'WARNING: routine TRANSFER_FILE DOES NOT WORK'
-!!!!!CALL SYSTEM(YCOMMAND)
-print*, 'WARNING: "CALL SYSTEM(YCOMMAND)" is not called in TRANSFER_FILE routine'
-!
-!-------------------------------------------------------------------------------
-!
-END SUBROUTINE TRANSFER_FILE

src/MNH/write_ts1d.f90

@@ -70,7 +70,6 @@
 !!
 !!    EXTERNAL
 !!    --------
-!!    OPEN_ll and CLOSE_ll  ! attribute a free I/O unit and close it again
 
 
 !!    IMPLICIT ARGUMENTS
@@ -121,7 +120,6 @@ USE MODD_CH_JVALUES_n,    ONLY: XJVALUES   ! Jvalues and
 USE MODD_CH_INIT_JVALUES, ONLY:JPJVMAX ! their number
 USE MODD_PARAMETERS,      ONLY: XUNDEF
 USE MODD_DIAG_FLAG,       ONLY: LCHEMDIAG, XCHEMLAT, XCHEMLON
-USE MODI_TRANSFER_FILE
 
 IMPLICIT NONE
 !!    EXPLICIT ARGUMENTS
@@ -278,7 +276,6 @@ DO JN=1,NBPROF
   
     CALL IO_FILE_CLOSE_ll(TZFILE)
     TZFILE => NULL()
-    CALL TRANSFER_FILE('fujitransfer.x','NIL',YSIO1DDEF)
 
     ! open picasso dat-file
     CALL IO_FILE_ADD2LIST(TZFILE,YSIO1DDAT,'TXT','WRITE')
@@ -392,12 +389,10 @@ DO JN=1,NBPROF
     IF ((CPROGRAM =='DIAG  ').AND.(LCHEMDIAG)) THEN
       CALL IO_FILE_CLOSE_ll(TZFILE)
       TZFILE => NULL()
-      CALL TRANSFER_FILE('fujitransfer.x','NIL',YSIO1DDAT)
     END IF
  
     IF (L1D) THEN
       GSFIRSTCALL = .FALSE.
-      CALL TRANSFER_FILE('fujitransfer.x','NIL',YSIO1DDAT)
     END IF
 
   END IF