diff --git a/src/MNH/statprof_tools.f90 b/src/MNH/statprof_tools.f90 index 0d1de4a1616acc850cbc6d264e7ce3fbcb78e9f8..79eb36b28e7c6624156a2cc2f52547ec23f7841b 100644 --- a/src/MNH/statprof_tools.f90 +++ b/src/MNH/statprof_tools.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 2002-2022 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2002-2023 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. @@ -400,7 +400,7 @@ SUBROUTINE PROFILER_ADD( TPPROFILER ) IMPLICIT NONE - CLASS(TSTATPROFDATA), INTENT(IN) :: TPPROFILER + CLASS(TPROFILERDATA), INTENT(IN) :: TPPROFILER INTEGER :: JS TYPE(TPROFILERDATA), DIMENSION(:), POINTER :: TZPROFILERS @@ -429,6 +429,7 @@ SUBROUTINE PROFILER_ADD( TPPROFILER ) TZPROFILERS(NUMBPROFILER_LOC)%XYMCOEF = TPPROFILER%XYMCOEF TZPROFILERS(NUMBPROFILER_LOC)%XXUCOEF = TPPROFILER%XXUCOEF TZPROFILERS(NUMBPROFILER_LOC)%XYVCOEF = TPPROFILER%XYVCOEF + TZPROFILERS(NUMBPROFILER_LOC)%CTYPE = TPPROFILER%CTYPE IF ( ASSOCIATED( TPROFILERS ) ) DEALLOCATE( TPROFILERS ) !Can be done without memory leak because allocatable arrays were !not yet allocated (will be done in PROFILER_ALLOCATE) @@ -444,7 +445,7 @@ SUBROUTINE STATION_ADD( TPSTATION ) IMPLICIT NONE - CLASS(TSTATPROFDATA), INTENT(IN) :: TPSTATION + CLASS(TSTATIONDATA), INTENT(IN) :: TPSTATION INTEGER :: JS TYPE(TSTATIONDATA), DIMENSION(:), POINTER :: TZSTATIONS @@ -473,6 +474,7 @@ SUBROUTINE STATION_ADD( TPSTATION ) TZSTATIONS(NUMBSTAT_LOC)%XYMCOEF = TPSTATION%XYMCOEF TZSTATIONS(NUMBSTAT_LOC)%XXUCOEF = TPSTATION%XXUCOEF TZSTATIONS(NUMBSTAT_LOC)%XYVCOEF = TPSTATION%XYVCOEF + TZSTATIONS(NUMBSTAT_LOC)%NK = TPSTATION%NK IF ( ASSOCIATED( TSTATIONS ) ) DEALLOCATE( TSTATIONS ) !Can be done without memory leak because allocatable arrays were !not yet allocated (will be done in STATION_ALLOCATE)