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

 USE IMODVAR, ONLY : DP_KIND,SP_KIND
 USE MOD_IDF_PAR

 INTEGER,PARAMETER :: MF=2           !## max. number of subsystems
 INTEGER :: BLOCKSIZE=500000
 CHARACTER(LEN=256) :: FNAME,OUTPUTDIR
 TYPE FOBJ
  CHARACTER(LEN=256),DIMENSION(5) :: FILE        !## files top,bottom,kh,kv,va
  INTEGER,DIMENSION(5) :: ITYPE                  !## 0=idf, 1=constant value
  INTEGER :: ILAYER                              !## layer for insertion
  INTEGER :: METH                                !## method for insertion
  INTEGER,DIMENSION(5) :: DUPL_F,DUPL_T          !## duplicateformation,duplicatettype
  REAL(KIND=DP_KIND),DIMENSION(5) :: XVAL
 END TYPE FOBJ
 TYPE(FOBJ),DIMENSION(:),POINTER :: FLIST,ALIST,TLIST

TYPE ATOBJ
  INTEGER(KIND=2) :: IROW,ICOL
  REAL(KIND=SP_KIND) :: TP,BT,KH,KV,VA
 END TYPE ATOBJ
 TYPE FMMOBJ
  TYPE(ATOBJ),POINTER,DIMENSION(:) :: AT=>NULL()
  TYPE(ATOBJ),POINTER,DIMENSION(:) :: AT_DUMMY=>NULL()
 END TYPE FMMOBJ
 TYPE FMOBJ
  INTEGER :: IORDER
  TYPE(FMMOBJ),POINTER,DIMENSION(:) :: SF=>NULL()
 END TYPE FMOBJ
 TYPE(FMOBJ),ALLOCATABLE,DIMENSION(:) :: FM
 
 INTEGER :: IPRJ,IMODE,IWINDOW
 REAL(KIND=DP_KIND), PARAMETER :: EPS=1.0D0
 REAL(KIND=DP_KIND), PARAMETER :: KERROR=1.0D0,CERROR=1.0D0
 REAL(KIND=DP_KIND) :: CMIN,XMIN,YMIN,XMAX,YMAX,CELLSIZE
 
 CHARACTER(LEN=256) :: SORTFILE,IWHBFILE
 CHARACTER(LEN=256) :: INDIR,IWHBDIR,OUTDIR

 END MODULE MOD_AGGREGATE_PAR