h3d_quad_scalar.F File Reference

#include "implicit_f.inc"
#include "mvsiz_p.inc"
#include "com01_c.inc"
#include "com04_c.inc"
#include "param_c.inc"
#include "task_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	h3d_quad_scalar (elbuf_tab, quad_scalar, iparg, ixq, pm, ehour, ipm, x, v, w, ale_connect, nercvois, nesdvois, lercvois, lesdvois, id_elem, is_written_quad, ipartq, layer_input, npart1, iuvar_input, h3d_part, keyword, itherm, bufmat, multi_fvm, ir_input, is_input, it_input, id, mat_param)

Function/Subroutine Documentation

h3d_quad_scalar()

subroutine h3d_quad_scalar	(	type (elbuf_struct_), dimension(ngroup), target	elbuf_tab,
		dimension(*), intent(inout)	quad_scalar,
		integer, dimension(nparg,ngroup)	iparg,
		integer, dimension(nixq,numelq)	ixq,
		dimension(npropm,nummat), intent(inout)	pm,
		dimension(*), intent(inout)	ehour,
		integer, dimension(npropmi,nummat)	ipm,
		dimension(3,numnod), intent(inout)	x,
		dimension(3,numnod), intent(inout)	v,
		dimension(3,numnod), intent(inout)	w,
		type(t_ale_connectivity), intent(in)	ale_connect,
		integer, dimension(*), intent(in)	nercvois,
		integer, dimension(*), intent(in)	nesdvois,
		integer, dimension(*), intent(in)	lercvois,
		integer, dimension(*), intent(in)	lesdvois,
		integer, dimension(*)	id_elem,
		integer, dimension(*)	is_written_quad,
		integer, dimension(*)	ipartq,
		integer	layer_input,
		integer	npart1,
		integer	iuvar_input,
		integer, dimension(*)	h3d_part,
		character(len=ncharline100)	keyword,
		integer, intent(in)	itherm,
		dimension(*), target	bufmat,
		type(multi_fvm_struct), intent(in)	multi_fvm,
		integer	ir_input,
		integer	is_input,
		integer	it_input,
		integer, intent(in)	id,
		type (matparam_struct_), dimension(nummat), intent(in)	mat_param )

Definition at line 43 of file h3d_quad_scalar.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE initbuf_mod
      USE elbufdef_mod    
      USE schlieren_mod 
      USE stack_mod   
      USE multi_fvm_mod
      USE ale_connectivity_mod
      USE names_and_titles_mod, ONLY: ncharline100
      USE h3d_quad_scalar_1_mod, ONLY: h3d_quad_scalar_1
      USE multimat_param_mod , ONLY : m51_n0phas, m51_nvphas
      USE matparam_def_mod , ONLY : matparam_struct_
      use element_mod , only : nixq
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-----------------------------------------------
#include      "mvsiz_p.inc"
!NGROUP, N2D
#include      "com01_c.inc"
!NUMELQ, NUMMAT, NUMNOD
#include      "com04_c.inc"
!NPARG, NPROPM, NPROPMI
#include      "param_c.inc"
! ISPMD
#include      "task_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      my_real, INTENT(INOUT) :: 
     .   quad_scalar(*),x(3,numnod),v(3,numnod),w(3,numnod),ehour(*),                   
     .   pm(npropm,nummat)
      INTEGER IPARG(NPARG,NGROUP),
     .   IXQ(NIXQ,NUMELQ),
     .   IPM(NPROPMI,NUMMAT),
     .   ID_ELEM(*),
     .   IS_WRITTEN_QUAD(*),IPARTQ(*),H3D_PART(*),
     .   LAYER_INPUT ,IUVAR_INPUT,
     .   IR_INPUT,IS_INPUT,IT_INPUT,NPART1
      INTEGER, INTENT(IN) :: ID
      INTEGER, INTENT(IN) :: ITHERM
      TYPE (ELBUF_STRUCT_), DIMENSION(NGROUP), TARGET :: ELBUF_TAB
      CHARACTER(LEN=NCHARLINE100):: KEYWORD
      TYPE(MULTI_FVM_STRUCT), INTENT(IN) :: MULTI_FVM
      TYPE(t_ale_connectivity), INTENT(IN) :: ALE_CONNECT
      my_real, TARGET :: bufmat(*)
      INTEGER, INTENT(in) :: NERCVOIS(*),NESDVOIS(*), LERCVOIS(*),LESDVOIS(*)
      TYPE (MATPARAM_STRUCT_) ,DIMENSION(NUMMAT) ,INTENT(IN) :: MAT_PARAM
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      my_real
     .   value(mvsiz)
      INTEGER NG,ILAY
      INTEGER 
     .        I,IUVAR
C-----------------------------------------------
      ilay = layer_input
      iuvar = iuvar_input
 
      DO i=1,numelq
         is_written_quad(i) = 0
      ENDDO
C
      !-------------------------------------------------------!
      !     INITIALIZATION IF SCHLIEREN DEFINED               !
      !-------------------------------------------------------!      
      IF(keyword == 'SCHLIEREN')THEN
        CALL schlieren_buffer_gathering(nercvois ,nesdvois ,lercvois ,lesdvois, iparg, elbuf_tab, multi_fvm,itherm)  
      ENDIF
C-----------
      DO ng=1,ngroup
        CALL h3d_quad_scalar_1(.false., ng, 
     .                  m51_n0phas     , m51_nvphas,ngroup, n2d, numelq, nummat, numnod, nparg, npropm, npropmi, ispmd,
     .                  elbuf_tab      ,quad_scalar, numelq, iparg        ,
     .                  ixq            , nixq         ,pm          ,
     .                  ehour          ,
     .                  ipm            ,
     .                  x              ,v          ,w           ,ale_connect      ,
     .                  id_elem        ,
     .                  is_written_quad,ipartq     ,layer_input , npart1,
     .                  iuvar_input    ,h3d_part   ,keyword   ,
     .                  bufmat         ,multi_fvm  ,
     .                  id             ,mat_param)
 
      ENDDO                 
C-----------------------------------------------
      RETURN