Philippe 03/02/2023: bugfix: stations + profilers: copy all available fields

src/MNH/statprof_tools.f90

-!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)