user_fwspec.f

Go to the documentation of this file.

!                   **********************
                    SUBROUTINE user_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.
!
!warning  THIS SUBROUTINE IS MERELY AN EXAMPLE;
!+            MUST BE CODED BY THE USER
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| 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_user_fwspec => user_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
!
!-----------------------------------------------------------------------
!
!
!-----------------------------------------------------------------------
!
      RETURN
      END