#include "cppdefs.h"

MODULE comsubstance
   
!!=============================================================================
!!  ***  MODULE comsubstance   ***
!!  Purpose : declare all common variables related to substance
!!=============================================================================

#if defined SUBSTANCE

    implicit none

    ! default
    public

    ! -------------------------------------------------------------------------
    ! Definition of rsh, rlg, riosh, riolg, lchain
    ! -------------------------------------------------------------------------
    INTEGER,PARAMETER :: riosh = 8, riolg = 8, rlg = 8, rsh = 8
    INTEGER,PARAMETER :: lchain = 200
                
    ! -------------------------------------------------------------------------
    ! Manage variable type ( sediment, particulate...)
    ! -------------------------------------------------------------------------

    INTEGER           :: nv_grav  ! number of gravel variables
    INTEGER           :: nv_sand  ! number of sand variables
    INTEGER           :: nv_mud   ! number of mud variables
    INTEGER           :: nspb     ! **TODO : add each var description**
    INTEGER           :: igrav1
    INTEGER           :: igrav2
    INTEGER           :: isand1
    INTEGER           :: isand2
    INTEGER           :: imud1
    INTEGER           :: imud2
    INTEGER           :: nv_ncp
    INTEGER           :: nv_dis
    INTEGER           :: nv_sorb
    INTEGER           :: nv_fix
    INTEGER           :: nvp
    INTEGER           :: nvpc
    INTEGER           :: nv_adv
    INTEGER           :: nv_state
    INTEGER           :: nv_tot
    INTEGER           :: nv_bent
        
    INTEGER, DIMENSION(:), ALLOCATABLE :: irkm_var_assoc ! indices des particulaires constitutives associees aux particulaires adsorbees, 

    ! -------------------------------------------------------------------------
    ! GESTION CORRESPONDANCE ORDRE DES VARIABLES LUES ET VARIABLES DANS MODELE
    ! -------------------------------------------------------------------------
    INTEGER, DIMENSION(:), ALLOCATABLE  :: irk_mod !rank (position) in the model of the variable in the array managing substances
    INTEGER, DIMENSION(:), ALLOCATABLE  :: irk_fil !rank (position) in the data file of the variable

    REAL(KIND=rsh), DIMENSION(:), ALLOCATABLE :: cini_wat, cini_air, cobc_wat
    REAL(KIND=rsh), DIMENSION(:), ALLOCATABLE :: typdiss
    REAL(KIND=rsh), DIMENSION(:), ALLOCATABLE :: sub_flx_atm, cv_rain
    CHARACTER(LEN=lchain), DIMENSION(:) ,ALLOCATABLE :: obc_cv_name, name_var, standard_name_var
    CHARACTER(LEN=lchain), DIMENSION(:) ,ALLOCATABLE :: init_cv_name, unit_var
    REAL(KIND=rsh), DIMENSION(:,:,:,:),ALLOCATABLE :: ws_part
    REAL(KIND=rsh), DIMENSION(:), ALLOCATABLE :: ws_free_min, ws_free_max
    REAL(KIND=rsh), DIMENSION(:), ALLOCATABLE :: unit_modif_mudbio_N2dw
    LOGICAL, DIMENSION(:), ALLOCATABLE :: l_subs2D

#ifdef MUSTANG
    REAL(KIND=rsh), DIMENSION(:,:), ALLOCATABLE :: ws_free_para, ws_hind_para
    INTEGER, DIMENSION(:), ALLOCATABLE :: ws_free_opt, ws_hind_opt
    REAL(KIND=rsh), DIMENSION(:), ALLOCATABLE :: tocd      
    REAL(KIND=rsh), DIMENSION(:), ALLOCATABLE :: cini_sed_r
    REAL(KIND=rsh), DIMENSION(:), ALLOCATABLE :: diam_sed, ros
#if defined key_MUSTANG_V2 && defined key_MUSTANG_bedload
    INTEGER  :: ibedload1, ibedload2
#endif /* if defined key_MUSTANG_V2 && defined key_MUSTANG_bedload */
#ifdef key_sand2D
    LOGICAL, DIMENSION(:), ALLOCATABLE :: l_outsandrouse
#endif /* ifdef key_sand2D */

#endif /* ifdef MUSTANG */

    ! -------------------------------------------------------------------------
    ! Fixed substances in water column
    ! -------------------------------------------------------------------------
    REAL(KIND=rsh),DIMENSION(:), ALLOCATABLE        :: cini_wat_fix ! - NOT USED
    LOGICAL,DIMENSION(:), ALLOCATABLE               :: l_out_subs_fix
    CHARACTER(LEN=lchain),DIMENSION(:), ALLOCATABLE :: init_cv_name_fix ! - NOT USED
    REAL(KIND=rsh),DIMENSION(:,:,:,:), ALLOCATABLE  :: cvfix_wat 

#ifdef key_benthic
    ! -------------------------------------------------------------------------
    ! Benthic variables - NOT USED in MUSTANG, used in BLOOM
    ! -------------------------------------------------------------------------
    CHARACTER(LEN = lchain)                            :: filespcbenthic
    CHARACTER(LEN = lchain), DIMENSION(:), ALLOCATABLE :: name_var_bent
    CHARACTER(LEN = lchain), DIMENSION(:), ALLOCATABLE :: long_name_var_bent
    CHARACTER(LEN = lchain), DIMENSION(:), ALLOCATABLE :: standard_name_var_bent
    CHARACTER(LEN = lchain), DIMENSION(:), ALLOCATABLE :: unit_var_bent
    REAL(KIND = rsh), DIMENSION(:,:,:,:), ALLOCATABLE  :: cv_bent
    REAL(KIND = rsh), DIMENSION(:), ALLOCATABLE        :: cbentmax
    REAL(KIND = rsh), DIMENSION(:), ALLOCATABLE        :: hbentmin
    REAL(KIND = rsh), DIMENSION(:), ALLOCATABLE        :: hbentmax
    REAL(KIND = rsh), DIMENSION(:), ALLOCATABLE        :: cini_bent
    LOGICAL,DIMENSION(:), ALLOCATABLE                  :: l_bent_sedvert
    LOGICAL,DIMENSION(:), ALLOCATABLE                  :: l_bent_drive
    LOGICAL,DIMENSION(:), ALLOCATABLE                  :: l_bent_out
    LOGICAL,DIMENSION(:), ALLOCATABLE                  :: l_out_subs_bent
#endif /* ifdef key_benthic */

    ! -------------------------------------------------------------------------
    ! Atmospheric fluxes for substance - NOT USED ??? to keep ???
    ! -------------------------------------------------------------------------
    CHARACTER(LEN = lchain) :: file_flxatm_subs ! file name defined if atmospheric flux for substances  - NOT USED
    LOGICAL                 :: l_subflxatm  ! - NOT USED
    LOGICAL                 :: l_subflxatm_xyt  ! - NOT USED
    LOGICAL                 :: l_cvrain_readfile ! - NOT USED
    LOGICAL                 :: l_subflxatm_readfile ! - NOT USED
    REAL(KIND = rsh)        :: sflx_sub_atm_depth ! - NOT USED

#if defined MUSTANG || defined BIOLink 
    ! -------------------------------------------------------------------------
    ! Declaration and evaluation of surface cells if not known in hydro host 
    ! model (for MUSTANG and Bloom/oyster)
    ! -------------------------------------------------------------------------
    REAL(KIND = rsh), DIMENSION(:,:), ALLOCATABLE  :: surf_cell ! surface cells
#endif /* ifdef MUSTANG & BIOLink */

#endif /* ifdef SUBSTANCE */

!!=============================================================================
 END MODULE comsubstance