ini_fvminivel.F File Reference

#include "implicit_f.inc"
#include "com04_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	ini_fvminivel (fvm_inivel, multi_fvm, igrbric, igrquad, igrsh3n)

Function/Subroutine Documentation

ini_fvminivel()

subroutine ini_fvminivel	(	type(fvm_inivel_struct), dimension(*), intent(in)	fvm_inivel,
		type(multi_fvm_struct), intent(inout)	multi_fvm,
		type (group_), dimension(ngrbric)	igrbric,
		type (group_), dimension(ngrquad)	igrquad,
		type (group_), dimension(ngrsh3n)	igrsh3n )

Definition at line 29 of file ini_fvminivel.F.

C-----------------------------------------------
C     M o d u l e s
C-----------------------------------------------
      USE multi_fvm_mod
      USE groupdef_mod
C-----------------------------------------------
C     I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc" 
C-----------------------------------------------
C     C o m m o n   B l o c k s
C-----------------------------------------------
!LIGNR1
!INVEL
#include      "com04_c.inc"
C-----------------------------------------------
C     D u m m y   A r g u m e n t s
C-----------------------------------------------
      TYPE(FVM_INIVEL_STRUCT), INTENT(IN) :: FVM_INIVEL(*)
      TYPE(MULTI_FVM_STRUCT), INTENT(INOUT) :: MULTI_FVM
C-----------------------------------------------
      TYPE (GROUP_)  , DIMENSION(NGRBRIC) :: IGRBRIC
      TYPE (GROUP_)  , DIMENSION(NGRQUAD) :: IGRQUAD
      TYPE (GROUP_)  , DIMENSION(NGRSH3N) :: IGRSH3N
C-----------------------------------------------
C     L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I, IGRS, NOSYS, J
      
      DO i = 1, ninvel
         IF (fvm_inivel(i)%FLAG) THEN
C     Bric groups
            IF (fvm_inivel(i)%GRBRICID /= -1) THEN
               igrs = fvm_inivel(i)%GRBRICID
               DO j=1,igrbric(igrs)%NENTITY
                  nosys=igrbric(igrs)%ENTITY(j)
                  multi_fvm%VEL(1, nosys) = fvm_inivel(i)%VX
                  multi_fvm%VEL(2, nosys) = fvm_inivel(i)%VY
                  multi_fvm%VEL(3, nosys) = fvm_inivel(i)%VZ
               ENDDO
            ENDIF
C     Quad groups
            IF (fvm_inivel(i)%GRQUADID /= -1) THEN
               igrs = fvm_inivel(i)%GRQUADID
               DO j=1,igrquad(igrs)%NENTITY
                  nosys=igrquad(igrs)%ENTITY(j)
                  multi_fvm%VEL(1, nosys) = fvm_inivel(i)%VX
                  multi_fvm%VEL(2, nosys) = fvm_inivel(i)%VY
                  multi_fvm%VEL(3, nosys) = fvm_inivel(i)%VZ
               ENDDO                 
            ENDIF
C     SH3N groups
            IF (fvm_inivel(i)%GRSH3NID /= -1) THEN
               igrs = fvm_inivel(i)%GRSH3NID
               DO j=1,igrsh3n(igrs)%NENTITY
                  nosys=igrsh3n(igrs)%ENTITY(j)
                  multi_fvm%VEL(1, nosys) = fvm_inivel(i)%VX
                  multi_fvm%VEL(2, nosys) = fvm_inivel(i)%VY
                  multi_fvm%VEL(3, nosys) = fvm_inivel(i)%VZ
               ENDDO                 
            ENDIF
         ENDIF
      ENDDO