!!  Copyright (C) Stichting Deltares, 2005-2023.
!!
!!  This file is part of iMOD.
!!
!!  This program is free software: you can redistribute it and/or modify
!!  it under the terms of the GNU General Public License as published by
!!  the Free Software Foundation, either version 3 of the License, or
!!  (at your option) any later version.
!!
!!  This program is distributed in the hope that it will be useful,
!!  but WITHOUT ANY WARRANTY; without even the implied warranty of
!!  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
!!  GNU General Public License for more details.
!!
!!  You should have received a copy of the GNU General Public License
!!  along with this program.  If not, see <http://www.gnu.org/licenses/>.
!!
!!  Contact: imod.support@deltares.nl
!!  Stichting Deltares
!!  P.O. Box 177
!!  2600 MH Delft, The Netherlands.
!!
MODULE MOD_TS_PAR

USE MOD_IDF_PAR, ONLY : IDFOBJ
USE IMODVAR, ONLY : DP_KIND,SP_KIND

INTEGER,PARAMETER :: MAXLEN=50
REAL(KIND=DP_KIND),PARAMETER :: TS_NODATA=1.0D30
INTEGER :: DATE_NODATA

CHARACTER(LEN=256),DIMENSION(:),POINTER :: IDFNAMES
CHARACTER(LEN=256) :: IPFNAME1,IPFNAME2,FNAME,TSDIR
CHARACTER(LEN=512) :: LINE
CHARACTER(LEN=MAXLEN) :: CTS
CHARACTER(LEN=3) :: CEXT
INTEGER :: IEXT                !## actual IPF column number pointing to column with name associated file
INTEGER :: LCOL                !## Keyword LABELCOL. Column in IPF file to be used for naming associated text files
INTEGER :: TXTCOL              !## Keyword TXTCOL. Column in associated text file to be used
INTEGER :: INTVAL              !## Keyword INT usage of 4 point interpolation
INTEGER :: IU(3),TSILAY
CHARACTER(LEN=MAXLEN) :: CDUM
CHARACTER(LEN=MAXLEN),ALLOCATABLE,DIMENSION(:) :: ATTRIB

TYPE(IDFOBJ),ALLOCATABLE,DIMENSION(:) :: IDF

TYPE OBSTYPE
 REAL(KIND=DP_KIND),POINTER,DIMENSION(:) :: OBS     !## observation value
 REAL(KIND=DP_KIND),POINTER,DIMENSION(:) :: RES     !## calculated residue
 REAL(KIND=DP_KIND) :: NODATA,GHG,GLG
 INTEGER :: NPER
 INTEGER(KIND=DP_KIND),POINTER,DIMENSION(:) :: IDATE
! CHARACTER(LEN=52),POINTER,DIMENSION(:,:) :: STRING
 CHARACTER(LEN=52) :: NAME                          !## name of the timeseries, e.g. "measurements"
END TYPE OBSTYPE
TYPE(OBSTYPE) :: OBSERVATION,MEASURE
INTEGER,ALLOCATABLE,DIMENSION(:) :: YRGXG  !## year for gxg simulations
INTEGER,ALLOCATABLE,DIMENSION(:) :: ICOLGXG  !## columns for yeras for gxg simulations

INTEGER :: IASSF                                    !## checkbox code: 1) add measured value to timeseries 
INTEGER :: NGXG                                     !## number of GxG years to be included
INTEGER :: ICLEAN                                   !## clean ipf file
INTEGER(KIND=DP_KIND) :: SDATE,EDATE
CHARACTER(LEN=MAXLEN),ALLOCATABLE,DIMENSION(:) :: STRING

END MODULE MOD_TS_PAR