From 74223abf123c1bc31bb83d1c969b35dfc44ea2cf Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 23 May 2024 10:06:20 +0200
Subject: [PATCH] Philippe 23/05/2024: minor: remove unused variables YMSG and
YRESP
---
src/LIB/SURCOUCHE/src/mode_io_field_write.f90 | 55 -------------------
1 file changed, 55 deletions(-)
diff --git a/src/LIB/SURCOUCHE/src/mode_io_field_write.f90 b/src/LIB/SURCOUCHE/src/mode_io_field_write.f90
index ee606f88a..db0fe5c66 100644
--- a/src/LIB/SURCOUCHE/src/mode_io_field_write.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io_field_write.f90
@@ -554,8 +554,6 @@ end subroutine IO_Ndimlist_reduce
INTEGER :: IK_FILE
TYPE(TFILEDATA),POINTER :: TZFILE
LOGICAL :: GLFI, GNC4
- CHARACTER(LEN=:),ALLOCATABLE :: YMSG
- CHARACTER(LEN=6) :: YRESP
!
YFILEM = TPFILE%CNAME
YRECFM = TPFIELD%CMNHNAME
@@ -659,9 +657,6 @@ end subroutine IO_Ndimlist_reduce
LOGICAL :: GALLOC
LOGICAL :: GLFI, GNC4
!
- CHARACTER(LEN=:),ALLOCATABLE :: YMSG
- CHARACTER(LEN=6) :: YRESP
- !
iresp = 0
iresp_lfi = 0
iresp_nc4 = 0
@@ -804,8 +799,6 @@ end subroutine IO_Ndimlist_reduce
REAL,DIMENSION(:,:),POINTER :: ZFIELD_GA
#endif
INTEGER :: IHEXTOT
- CHARACTER(LEN=:),ALLOCATABLE :: YMSG
- CHARACTER(LEN=6) :: YRESP
class(tfieldmetadata), allocatable :: tzfield
!
YFILEM = TPFILE%CNAME
@@ -1082,8 +1075,6 @@ end subroutine IO_Ndimlist_reduce
REAL,DIMENSION(:,:,:),POINTER :: ZFIELD_GA
#endif
INTEGER :: IHEXTOT
- CHARACTER(LEN=:),ALLOCATABLE :: YMSG
- CHARACTER(LEN=6) :: YRESP
class(tfieldmetadata), allocatable :: tzfield
TYPE(TFILEDATA),POINTER :: TZFILE
!
@@ -1547,8 +1538,6 @@ end subroutine IO_Ndimlist_reduce
LOGICAL :: GALLOC
LOGICAL :: GLFI, GNC4
INTEGER :: IHEXTOT
- CHARACTER(LEN=:),ALLOCATABLE :: YMSG
- CHARACTER(LEN=6) :: YRESP
class(tfieldmetadata), allocatable :: tzfield
!
YFILEM = TPFILE%CNAME
@@ -1763,8 +1752,6 @@ end subroutine IO_Ndimlist_reduce
LOGICAL :: GALLOC
LOGICAL :: GLFI, GNC4
INTEGER :: IHEXTOT
- CHARACTER(LEN=:),ALLOCATABLE :: YMSG
- CHARACTER(LEN=6) :: YRESP
class(tfieldmetadata), allocatable :: tzfield
!
YFILEM = TPFILE%CNAME
@@ -1938,8 +1925,6 @@ end subroutine IO_Ndimlist_reduce
LOGICAL :: GLFI, GNC4
LOGICAL :: GALLOC
INTEGER :: IHEXTOT
- CHARACTER(LEN=:),ALLOCATABLE :: YMSG
- CHARACTER(LEN=6) :: YRESP
!
YFILEM = TPFILE%CNAME
YRECFM = TPFIELD%CMNHNAME
@@ -2049,8 +2034,6 @@ end subroutine IO_Ndimlist_reduce
INTEGER :: IK_FILE
TYPE(TFILEDATA),POINTER :: TZFILE
LOGICAL :: GLFI, GNC4
- CHARACTER(LEN=:),ALLOCATABLE :: YMSG
- CHARACTER(LEN=6) :: YRESP
!
iresp = 0
iresp_lfi = 0
@@ -2146,8 +2129,6 @@ end subroutine IO_Ndimlist_reduce
INTEGER,DIMENSION(:),POINTER :: IFIELDP
LOGICAL :: GALLOC
LOGICAL :: GLFI, GNC4
- CHARACTER(LEN=:),ALLOCATABLE :: YMSG
- CHARACTER(LEN=6) :: YRESP
!
YFILEM = TPFILE%CNAME
YRECFM = TPFIELD%CMNHNAME
@@ -2270,8 +2251,6 @@ end subroutine IO_Ndimlist_reduce
REAL(kind=MNHTIME), DIMENSION(2) :: ZT0, ZT1, ZT2
REAL(kind=MNHTIME), DIMENSION(2) :: ZT11, ZT22
INTEGER :: IHEXTOT
- CHARACTER(LEN=:),ALLOCATABLE :: YMSG
- CHARACTER(LEN=6) :: YRESP
class(tfieldmetadata), allocatable :: tzfield
!
YFILEM = TPFILE%CNAME
@@ -2454,8 +2433,6 @@ end subroutine IO_Ndimlist_reduce
!
REAL(kind=MNHTIME), DIMENSION(2) :: ZT11, ZT22
INTEGER :: IHEXTOT
- CHARACTER(LEN=:),ALLOCATABLE :: YMSG
- CHARACTER(LEN=6) :: YRESP
class(tfieldmetadata), allocatable :: tzfield
!
YFILEM = TPFILE%CNAME
@@ -2637,8 +2614,6 @@ end subroutine IO_Ndimlist_reduce
LOGICAL :: GALLOC
LOGICAL :: GLFI, GNC4
INTEGER :: IHEXTOT
- CHARACTER(LEN=:),ALLOCATABLE :: YMSG
- CHARACTER(LEN=6) :: YRESP
class(tfieldmetadata), allocatable :: tzfield
!
YFILEM = TPFILE%CNAME
@@ -2839,8 +2814,6 @@ end subroutine IO_Ndimlist_reduce
INTEGER :: IK_FILE
LOGICAL :: GLFI, GNC4
TYPE(TFILEDATA),POINTER :: TZFILE
- CHARACTER(LEN=:),ALLOCATABLE :: YMSG
- CHARACTER(LEN=6) :: YRESP
!
iresp = 0
iresp_lfi = 0
@@ -2936,8 +2909,6 @@ end subroutine IO_Ndimlist_reduce
LOGICAL,DIMENSION(:),POINTER :: GFIELDP
LOGICAL :: GALLOC
LOGICAL :: GLFI, GNC4
- CHARACTER(LEN=:),ALLOCATABLE :: YMSG
- CHARACTER(LEN=6) :: YRESP
!
YFILEM = TPFILE%CNAME
YRECFM = TPFIELD%CMNHNAME
@@ -3042,8 +3013,6 @@ end subroutine IO_Ndimlist_reduce
!
integer :: iresp, iresp_lfi, iresp_nc4, iresp_glob
LOGICAL :: GLFI, GNC4
- CHARACTER(LEN=:),ALLOCATABLE :: YMSG
- CHARACTER(LEN=6) :: YRESP
!
iresp = 0
iresp_lfi = 0
@@ -3126,8 +3095,6 @@ end subroutine IO_Ndimlist_reduce
INTEGER,DIMENSION(:),ALLOCATABLE :: IFIELD
INTEGER :: ILENG
LOGICAL :: GLFI, GNC4
- CHARACTER(LEN=:),ALLOCATABLE :: YMSG
- CHARACTER(LEN=6) :: YRESP
!
CALL PRINT_MSG(NVERB_DEBUG,'IO','IO_Field_write_byfield_C1',TRIM(TPFILE%CNAME)//': writing '//TRIM(TPFIELD%CMNHNAME))
!
@@ -3226,8 +3193,6 @@ end subroutine IO_Ndimlist_reduce
!
integer :: iresp, iresp_lfi, iresp_nc4, iresp_glob
LOGICAL :: GLFI, GNC4
- CHARACTER(LEN=:),ALLOCATABLE :: YMSG
- CHARACTER(LEN=6) :: YRESP
!
CALL PRINT_MSG(NVERB_DEBUG,'IO','IO_Field_write_byfield_T0',TRIM(TPFILE%CNAME)//': writing '//TRIM(TPFIELD%CMNHNAME))
!
@@ -3303,8 +3268,6 @@ end subroutine IO_Ndimlist_reduce
!
integer :: iresp, iresp_lfi, iresp_nc4, iresp_glob
LOGICAL :: GLFI, GNC4
- CHARACTER(LEN=:),ALLOCATABLE :: YMSG
- CHARACTER(LEN=6) :: YRESP
!
CALL PRINT_MSG(NVERB_DEBUG,'IO','IO_Field_write_byfield_T1',TRIM(TPFILE%CNAME)//': writing '//TRIM(TPFIELD%CMNHNAME))
!
@@ -3402,8 +3365,6 @@ end subroutine IO_Ndimlist_reduce
REAL,DIMENSION(:,:,:), POINTER :: X
END TYPE TX_3DP
TYPE(TX_3DP),ALLOCATABLE,DIMENSION(:) :: T_TX3DP
- CHARACTER(LEN=:),ALLOCATABLE :: YMSG
- CHARACTER(LEN=6) :: YRESP
class(tfieldmetadata), allocatable :: tzfield
!
YFILEM = TPFILE%CNAME
@@ -3549,8 +3510,6 @@ end subroutine IO_Ndimlist_reduce
INTEGER, DIMENSION(:), POINTER :: IFIELDP
LOGICAL :: GALLOC
LOGICAL :: GLFI, GNC4
- CHARACTER(LEN=:), ALLOCATABLE :: YMSG
- CHARACTER(LEN=6) :: YRESP
!
CALL PRINT_MSG(NVERB_DEBUG,'IO','IO_Field_write_box_byfield_N1',TRIM(TPFILE%CNAME)//': writing '//TRIM(TPFIELD%CMNHNAME))
!
@@ -3651,8 +3610,6 @@ end subroutine IO_Ndimlist_reduce
INTEGER, DIMENSION(:,:), POINTER :: IFIELDP
LOGICAL :: GALLOC
LOGICAL :: GLFI, GNC4
- CHARACTER(LEN=:),ALLOCATABLE :: YMSG
- CHARACTER(LEN=6) :: YRESP
!
CALL PRINT_MSG(NVERB_DEBUG,'IO','IO_Field_write_box_byfield_N2',TRIM(TPFILE%CNAME)//': writing '//TRIM(TPFIELD%CMNHNAME))
!
@@ -3750,8 +3707,6 @@ end subroutine IO_Ndimlist_reduce
INTEGER, DIMENSION(:,:,:), POINTER :: IFIELDP
LOGICAL :: GALLOC
LOGICAL :: GLFI, GNC4
- CHARACTER(LEN=:),ALLOCATABLE :: YMSG
- CHARACTER(LEN=6) :: YRESP
!
CALL PRINT_MSG(NVERB_DEBUG,'IO','IO_Field_write_box_byfield_N3',TRIM(TPFILE%CNAME)//': writing '//TRIM(TPFIELD%CMNHNAME))
!
@@ -3855,8 +3810,6 @@ end subroutine IO_Ndimlist_reduce
REAL, DIMENSION(:), POINTER :: ZFIELDP
LOGICAL :: GALLOC
LOGICAL :: GLFI, GNC4
- CHARACTER(LEN=:), ALLOCATABLE :: YMSG
- CHARACTER(LEN=6) :: YRESP
!
CALL PRINT_MSG(NVERB_DEBUG,'IO','IO_Field_write_box_byfield_X1',TRIM(TPFILE%CNAME)//': writing '//TRIM(TPFIELD%CMNHNAME))
!
@@ -3957,8 +3910,6 @@ end subroutine IO_Ndimlist_reduce
REAL, DIMENSION(:,:), POINTER :: ZFIELDP
LOGICAL :: GALLOC
LOGICAL :: GLFI, GNC4
- CHARACTER(LEN=:),ALLOCATABLE :: YMSG
- CHARACTER(LEN=6) :: YRESP
!
CALL PRINT_MSG(NVERB_DEBUG,'IO','IO_Field_write_box_byfield_X2',TRIM(TPFILE%CNAME)//': writing '//TRIM(TPFIELD%CMNHNAME))
!
@@ -4056,8 +4007,6 @@ end subroutine IO_Ndimlist_reduce
REAL, DIMENSION(:,:,:), POINTER :: ZFIELDP
LOGICAL :: GALLOC
LOGICAL :: GLFI, GNC4
- CHARACTER(LEN=:),ALLOCATABLE :: YMSG
- CHARACTER(LEN=6) :: YRESP
!
CALL PRINT_MSG(NVERB_DEBUG,'IO','IO_Field_write_box_byfield_X3',TRIM(TPFILE%CNAME)//': writing '//TRIM(TPFIELD%CMNHNAME))
!
@@ -4167,8 +4116,6 @@ end subroutine IO_Ndimlist_reduce
REAL, DIMENSION(:,:,:,:), POINTER :: ZFIELDP
LOGICAL :: GALLOC
LOGICAL :: GLFI, GNC4
- CHARACTER(LEN=:),ALLOCATABLE :: YMSG
- CHARACTER(LEN=6) :: YRESP
!
CALL PRINT_MSG(NVERB_DEBUG,'IO','IO_Field_write_box_byfield_X4',TRIM(TPFILE%CNAME)//': writing '//TRIM(TPFIELD%CMNHNAME))
!
@@ -4273,8 +4220,6 @@ end subroutine IO_Ndimlist_reduce
REAL,DIMENSION(:,:,:,:,:),POINTER :: ZFIELDP
LOGICAL :: GALLOC
LOGICAL :: GLFI, GNC4
- CHARACTER(LEN=:),ALLOCATABLE :: YMSG
- CHARACTER(LEN=6) :: YRESP
!
CALL PRINT_MSG(NVERB_DEBUG,'IO','IO_Field_write_box_byfield_X5',TRIM(TPFILE%CNAME)//': writing '//TRIM(TPFIELD%CMNHNAME))
!
--
GitLab