ksupg.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\ksupg.f
00002 !
00069                      SUBROUTINE KSUPG
00070 !                    ****************
00071 !
00072      &(KX,KY,XMUL,U,V,MESH)
00073 !
00074 !***********************************************************************
00075 ! BIEF   V6P1                                   21/08/2010
00076 !***********************************************************************
00077 !
00078 !
00079 !
00080 !
00081 !
00082 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00083 !| KX             |-->| FIRST COMPONENT OF RESULTING VECTOR
00084 !| KY             |-->| SECOND COMPONENT OF RESULTING VECTOR
00085 !| MESH           |-->| MESH STRUCTURE
00086 !| U              |-->| FIRST COMPONENT OF VELOCITY
00087 !| V              |-->| SECOND COMPONENT OF VELOCITY
00088 !| XMUL           |-->| MULTIPLICATION COEFICIENT
00089 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00090 !
00091       USE BIEF, EX_KSUPG => KSUPG
00092 !
00093       IMPLICIT NONE
00094       INTEGER LNG,LU
00095       COMMON/INFO/LNG,LU
00096 !
00097       TYPE(BIEF_MESH), INTENT(IN)   :: MESH
00098 !
00099       TYPE(BIEF_OBJ), INTENT(INOUT) :: KX,KY
00100       TYPE(BIEF_OBJ), INTENT(IN)    :: U,V
00101 !
00102       DOUBLE PRECISION, INTENT(IN)  :: XMUL
00103 !
00104 !-----------------------------------------------------------------------
00105 !
00106       IF(U%ELM.EQ.11.OR.U%ELM.EQ.12.OR.U%ELM.EQ.13) THEN
00107 !
00108         CALL KSPG11(KX%R,KY%R,MESH%XEL%R,MESH%YEL%R,U%R,V%R,
00109      &              MESH%IKLE%I,MESH%NELEM,MESH%NELMAX,XMUL)
00110 !
00111 !  ELEMENT NOT IMPLEMENTED: ERROR
00112 !
00113       ELSE
00114         IF (LNG.EQ.1) WRITE(LU,100) U%ELM
00115         IF (LNG.EQ.2) WRITE(LU,101) U%ELM
00116 100     FORMAT(1X,'KSUPG (BIEF) : U%ELM = ',1I6,' ELEMENT NON PREVU')
00117 101     FORMAT(1X,'KSUPG (BIEF): U%ELM = ',1I6,' ELEMENT NOT AVAILABLE')
00118         CALL PLANTE(1)
00119         STOP
00120       ENDIF
00121 !
00122 !-----------------------------------------------------------------------
00123 !
00124       RETURN
00125       END

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