fwspec.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\artemis\fwspec.f
00002 !
00069                      SUBROUTINE FWSPEC
00070 !                    *****************
00071 !
00072      &(FW,FWCOEF,X,Y,NPOIN,PRIVE,ZF)
00073 !
00074 !***********************************************************************
00075 ! ARTEMIS   V6P1                                   21/08/2010
00076 !***********************************************************************
00077 !
00078 !
00079 !
00080 !
00081 !
00082 !
00083 !
00084 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00085 !| FW             |<--| BOTTOM FRICTION FACTOR
00086 !| FWCOEF         |-->| CONSTANT FRICTION FACTOR IMPOSED
00087 !| NPOIN          |-->| NUMBER OF POINTS
00088 !| PRIVE          |-->| PRIVATE TABLE DEFINED IN PRINCI
00089 !| X,Y            |-->| MESH COORDINATES
00090 !| ZF             |-->| BOTTOM
00091 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00092 !
00093       USE BIEF
00094       USE INTERFACE_ARTEMIS, EX_FWSPEC => FWSPEC
00095 !
00096       IMPLICIT NONE
00097       INTEGER LNG,LU
00098       COMMON/INFO/LNG,LU
00099 !
00100       INTEGER NPOIN
00101 !
00102       DOUBLE PRECISION FW(NPOIN),X(NPOIN),Y(NPOIN)
00103       DOUBLE PRECISION ZF(NPOIN),FWCOEF
00104 !
00105       TYPE(BIEF_OBJ) :: PRIVE
00106 !
00107 !-----------------------------------------------------------------------
00108 !
00109 !  IN THIS EXAMPLE THE FRICTION COEFFICIENT IS CONSTANT
00110 !
00111       CALL OV( 'X=C     ' , FW , X , X , FWCOEF , NPOIN )
00112 !
00113 !-----------------------------------------------------------------------
00114 !
00115       RETURN
00116       END

Generated on Fri Aug 31 2013 18:12:58 by S.E.Bourban (HRW) using doxygen 1.7.0