h3d_solid_scalar.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	h3d_solid_scalar (elbuf_tab, solid_scalar, iparg, ixs, pm, bufmat, ehour, ipm, x, v, w, ale_connect, nercvois, nesdvois, lercvois, lesdvois, id_elem, ity_elem, iparts, layer_input, ir_input, is_input, it_input, iuvar_input, h3d_part, is_written_solid, info1, keyword, itherm, fani_cell, multi_fvm, idmds, imdsvar, id, mat_param, mode)

Function/Subroutine Documentation

h3d_solid_scalar()

subroutine h3d_solid_scalar	(	type (elbuf_struct_), dimension(ngroup), target	elbuf_tab,
			solid_scalar,
		integer, dimension(nparg,*)	iparg,
		integer, dimension(nixs,*)	ixs,
			pm,
		dimension(*), target	bufmat,
			ehour,
		integer, dimension(npropmi,*)	ipm,
			x,
			v,
			w,
		type(t_ale_connectivity), intent(in)	ale_connect,
		integer, dimension(*)	nercvois,
		integer, dimension(*)	nesdvois,
		integer, dimension(*)	lercvois,
		integer, dimension(*)	lesdvois,
		integer, dimension(*)	id_elem,
		integer, dimension(*)	ity_elem,
		integer, dimension(*)	iparts,
		integer	layer_input,
		integer	ir_input,
		integer	is_input,
		integer	it_input,
		integer	iuvar_input,
		integer, dimension(*)	h3d_part,
		integer, dimension(*)	is_written_solid,
		integer	info1,
		character(len=ncharline100)	keyword,
		integer, intent(in)	itherm,
		type(fani_cell_), intent(in)	fani_cell,
		type(multi_fvm_struct), intent(in)	multi_fvm,
		integer	idmds,
		integer	imdsvar,
		integer	id,
		type (matparam_struct_), dimension(nummat), intent(in)	mat_param,
		integer, intent(in)	mode )

Definition at line 41 of file h3d_solid_scalar.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
        USE initbuf_mod
        USE elbufdef_mod
        USE schlieren_mod
        USE h3d_mod
        USE multi_fvm_mod
        USE ale_connectivity_mod
        USE aleanim_mod , ONLY : fani_cell_
        USE names_and_titles_mod, ONLY: ncharline100
        USE matparam_def_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-----------------------------------------------
#include      "mvsiz_p.inc"
#include      "com01_c.inc"
#include      "com04_c.inc"
#include      "param_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
        my_real
     .     solid_scalar(*),x(3,*),v(3,*),w(3,*),ehour(*),
     .     pm(npropm,*)
        my_real, INTENT(IN),TARGET :: bufmat(*)
        INTEGER, INTENT(IN) :: ITHERM
        INTEGER IPARG(NPARG,*),IXS(NIXS,*),
     .     IPM(NPROPMI,*),
     .     ID_ELEM(*),ITY_ELEM(*),IPARTS(*),ID,
     .     H3D_PART(*),IS_WRITTEN_SOLID(*),INFO1,LAYER_INPUT,IR_INPUT,IS_INPUT,IT_INPUT,
     .     IUVAR_INPUT,IDMDS,IMDSVAR,NERCVOIS(*),NESDVOIS(*),
     .          LERCVOIS(*),LESDVOIS(*)
        TYPE (ELBUF_STRUCT_), DIMENSION(NGROUP), TARGET :: ELBUF_TAB
        CHARACTER(LEN=NCHARLINE100) :: KEYWORD
        TYPE(FANI_CELL_),INTENT(IN) :: FANI_CELL
        TYPE(MULTI_FVM_STRUCT), INTENT(IN) :: MULTI_FVM
        TYPE(t_ale_connectivity), INTENT(IN) :: ALE_CONNECT
        TYPE (MATPARAM_STRUCT_) ,DIMENSION(NUMMAT) ,INTENT(IN) :: MAT_PARAM
        INTEGER ,INTENT(IN) :: MODE
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
        INTEGER I,NG
C-----------------------------------------------
        DO i=1,numels
          is_written_solid(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 900 ng=1,ngroup
 
          CALL h3d_solid_scalar_1(.false.,
     .                    elbuf_tab       ,solid_scalar ,iparg       ,
     .                    ixs          ,pm          ,bufmat      ,
     .                    ehour        ,
     .                    ipm             ,
     .                    x            ,v         ,w           ,ale_connect,
     .                    id_elem      ,ity_elem  ,iparts      ,layer_input ,
     .                    ir_input        ,is_input     ,it_input  ,iuvar_input ,h3d_part    ,
     .                    is_written_solid,info1        ,keyword   ,fani_cell   ,
     .                    multi_fvm       , ng        ,idmds       ,imdsvar     ,
     .                    id           ,mat_param ,mode     )
 
 
 900    CONTINUE   ! NG
C-----------------------------------------------
        RETURN