driuti.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\telemac3d\driuti.f
00002 !
00055                      SUBROUTINE DRIUTI
00056 !                    *****************
00057 !
00058      & (FRI, RI, ITYP, ITRAC, NPOIN3)
00059 !
00060 !***********************************************************************
00061 ! TELEMAC3D   V6P1                                   21/08/2010
00062 !***********************************************************************
00063 !
00064 !
00065 !
00066 !
00067 !
00068 !
00069 !
00070 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00071 !| FRI            |<->| DAMPING FUNCTION
00072 !| ITRAC          |-->| TRACER NUMBER
00073 !| ITYP           |-->| =1 FOR VELOCITIES
00074 !|                |   | =2 FOR TRACERS
00075 !| NPOIN3         |-->| NUMBER OF POINTS IN THE 3D MESH
00076 !| RI             |<->| RICHARDSON NUMBER
00077 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00078 !
00079       IMPLICIT NONE
00080       INTEGER LNG,LU
00081       COMMON/INFO/LNG,LU
00082 !
00083 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00084 !
00085       INTEGER, INTENT(IN) :: ITYP, ITRAC, NPOIN3
00086       DOUBLE PRECISION, INTENT(INOUT) :: FRI(NPOIN3)
00087       DOUBLE PRECISION, INTENT(INOUT) :: RI(NPOIN3)
00088 !
00089 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00090 !
00091       IF(ITYP.EQ.1) THEN
00092 !
00093 !       DAMPING FUNCTION FOR VELOCITIES
00094 !
00095         CALL OV('X=C     ',FRI,FRI,FRI,1.D0,NPOIN3)
00096 !
00097       ELSEIF(ITYP.EQ.2) THEN
00098 !
00099 !       DAMPING FUNCTION FOR TRACERS
00100 !
00101         CALL OV('X=C     ',FRI,FRI,FRI,1.D0,NPOIN3)
00102 !
00103       ELSE
00104 !
00105         IF (LNG.EQ.1) WRITE(LU,11) ITYP
00106         IF (LNG.EQ.2) WRITE(LU,12) ITYP
00107         CALL PLANTE(1)
00108         STOP
00109 !
00110       ENDIF
00111 !
00112 !-----------------------------------------------------------------------
00113 !
00114 11    FORMAT('DRIUTI: VARIABLE NON PREVUE ITYP: ',I2)
00115 12    FORMAT('DRIUTI: UNEXPECTED PARAMETER ITYP: ',I2)
00116 !
00117 !-----------------------------------------------------------------------
00118 !
00119       RETURN
00120       END SUBROUTINE DRIUTI

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