fwspec.f

Go to the documentation of this file.

!                   *****************
                    SUBROUTINE fwspec
!                   *****************
!
     &(fw,fwcoef,x,y,npoin,prive,zf)
!
!***********************************************************************
! ARTEMIS   V6P1                                   21/08/2010
!***********************************************************************
!
!brief    SPECIFIES THE BOTTOM FRICTION COEFFICIENT
!+                IF IT IS VARIABLE IN SPACE.
!
!history  J-M HERVOUET (LNH)
!+
!+
!+   LINKED TO BIEF 5.0
!
!history  D. AELBRECHT (LNH)
!+        02/06/1999
!+        V5P1
!+
!
!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
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| FW             |<--| BOTTOM FRICTION FACTOR
!| FWCOEF         |-->| CONSTANT FRICTION FACTOR IMPOSED
!| NPOIN          |-->| NUMBER OF POINTS
!| PRIVE          |-->| PRIVATE TABLE DEFINED IN PRINCI
!| X,Y            |-->| MESH COORDINATES
!| ZF             |-->| BOTTOM
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE bief
      USE interface_artemis, ex_fwspec => fwspec
!
      USE declarations_special
      IMPLICIT NONE
!
      INTEGER NPOIN
!
      DOUBLE PRECISION FW(npoin),X(npoin),Y(npoin)
      DOUBLE PRECISION ZF(npoin),FWCOEF
!
      TYPE(bief_obj) :: PRIVE
!
!-----------------------------------------------------------------------
!
!     HERE THE FRICTION COEFFICIENT IS CONSTANT
!
      CALL ov('X=C     ', x=fw, c=fwcoef, dim1=npoin)
!
      CALL user_fwspec(fw,fwcoef,x,y,npoin,prive,zf)
!
!-----------------------------------------------------------------------
!
      RETURN
      END