corvis.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\telemac2d\corvis.f
00002 !
00060                      SUBROUTINE CORVIS
00061 !                    *****************
00062 !
00063 !
00064 !***********************************************************************
00065 ! TELEMAC2D   V6P1                                   21/08/2010
00066 !***********************************************************************
00067 !
00068 !
00069 !
00070 !
00071 !
00072 !
00073 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00074 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00075 !
00076       USE BIEF
00077 !EX   USE DECLARATIONS_TELEMAC2D
00078 !
00079       IMPLICIT NONE
00080       INTEGER LNG,LU
00081       COMMON/INFO/LNG,LU
00082 !
00083 !-----------------------------------------------------------------------
00084 !
00085 !     EXAMPLE : SETS THE VALUE TO 0.1 INSIDE A SQUARE.
00086 !               REMOVE THE CEX COMMENTS TO IMPLEMENT IT.
00087 !
00088 !
00089 !EX   INTEGER NSOM
00090 !EX   DOUBLE PRECISION XSOM(10),YSOM(10)
00091 !
00092 !-----------------------------------------------------------------------
00093 !
00094 !     DESCRIBES THE SQUARE AS A POLYGON TO CALL ROUTINE FILPOL
00095 !
00096 !EX   NSOM = 4
00097 !EX   XSOM(1) =     0.D0
00098 !EX   YSOM(1) =     0.D0
00099 !EX   XSOM(2) =  1000.D0
00100 !EX   YSOM(2) =     0.D0
00101 !EX   XSOM(3) =  1000.D0
00102 !EX   YSOM(3) =  1000.D0
00103 !EX   XSOM(4) =     0.D0
00104 !EX   YSOM(4) =  1000.D0
00105 !
00106 !EX   CALL FILPOL( VISC , 0.1D0 , XSOM , YSOM , NSOM , MESH )
00107 !
00108 !-----------------------------------------------------------------------
00109 !
00110       RETURN
00111       END

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