user_init_compo_coh.f

Go to the documentation of this file.

!                   ******************************
                    SUBROUTINE user_init_compo_coh
!                   ******************************
!
     &(es,conc_vase,conc,npoin,nomblay,nsicla,avail,ava0,
     & epai_vase,epai_sable)
!
!***********************************************************************
! SISYPHE
!***********************************************************************
!
!brief    USER INITIAL FRACTION DISTRIBUTION, STRATIFICATION,
!+                VARIATION IN SPACE.
!
!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| AVA0           |-->| VOLUME PERCENT
!| AVAIL          |<->| VOLUME PERCENT OF EACH CLASS
!| CONC           |<->| CONC OF EACH BED LAYER (KG/M3)
!| CONC_VASE      |<->| MUD CONCENTRATION FOR EACH LAYER
!| ES             |<->| LAYER THICKNESSES AS DOUBLE PRECISION
!| NOMBLAY        |-->| NUMBER OF LAYERS FOR CONSOLIDATION
!| NPOIN          |-->| NUMBER OF POINTS
!| NSICLA         |-->| NUMBER OF SIZE CLASSES FOR BED MATERIALS
!| EPAI_VASE      |<->| MUD THICKNESS
!| EPAI_SABLE     |<->| SAND THICKNESS
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE bief
      USE interface_sisyphe, ex_user_init_compo_coh
     &                       => user_init_compo_coh
      USE declarations_sisyphe, ONLY : nlaymax
!
      USE declarations_special
      IMPLICIT NONE
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      INTEGER, INTENT(IN)              :: NPOIN,NOMBLAY,NSICLA
      DOUBLE PRECISION, INTENT(INOUT)  :: ES(npoin,nomblay)
      DOUBLE PRECISION, INTENT(IN)     :: CONC_VASE(nomblay)
      DOUBLE PRECISION,  INTENT(INOUT) :: CONC(npoin,nomblay)
      DOUBLE PRECISION, INTENT(INOUT)  :: AVAIL(npoin,nomblay,nsicla)
      DOUBLE PRECISION, INTENT(IN)     :: AVA0(nsicla)
      DOUBLE PRECISION, INTENT(INOUT)  :: EPAI_VASE(nlaymax)
      DOUBLE PRECISION, INTENT(INOUT)  :: EPAI_SABLE(nlaymax)
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
!
!-----------------------------------------------------------------------
!
!    EXAMPLE FOR NOMBLAY = 10
!
!     EPAI_VASE(1)=0.0525D0
!     EPAI_VASE(2)=0.0385D0
!     EPAI_VASE(3)=0.03995D0
!     EPAI_VASE(4)=0.0437D0
!     EPAI_VASE(5)=0.0517D0
!     EPAI_VASE(6)=0.1259D0
!     EPAI_VASE(7)=0.4889D0
!     EPAI_VASE(8)=1.5071D0
!     EPAI_VASE(9)=0.86410D0
!     EPAI_VASE(9)=0.80D0
!
!
!-----------------------------------------------------------------------
!
      RETURN
      END