friction_def.f

Go to the documentation of this file.

!                   *******************
                    MODULE friction_def
!                   *******************
!
!
!***********************************************************************
! TELEMAC2D   V6P1                                   21/08/2010
!***********************************************************************
!
!history
!+
!+        V5P6
!+
!
!history  N.DURAND (HRW), S.E.BOURBAN (HRW)
!+        13/07/2010
!+        V6P0
!+   Translation of French comments within the FORTRAN sources into
!+   English comments
!
!history  N.DURAND (HRW), S.E.BOURBAN (HRW)
!+        21/08/2010
!+        V6P0
!+   Creation of DOXYGEN tags for automated documentation and
!+   cross-referencing of the FORTRAN sources
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      TYPE pointer_to_friction
!         SEQUENCE
        TYPE(friction_obj), POINTER :: p
      END TYPE pointer_to_friction
!
      TYPE friction_obj
!         SEQUENCE
        INTEGER          :: gnumb(2) ! GLOBAL NUMBER OF THE ZONE
        INTEGER          :: rtype ! TYPE OF LAW USED
        INTEGER          :: vtype
        ! USE REAL BECAUSE CHESTR IS SAVED AS SIMPLE PRECISION IN SELAFIN DATA
        ! --------------------------------------------------------------------
        DOUBLE PRECISION :: rcoef ! FRICTION PARAMETER
        DOUBLE PRECISION :: ndef  ! DEFAULT MANNING (FOR C-W LAW)
        DOUBLE PRECISION :: vcoef(15)    ! 15 COEFFICIENTS 
        
        TYPE(pointer_to_friction), POINTER, DIMENSION(:) :: adr
      END TYPE friction_obj
!
      END MODULE friction_def