mus_inamuro_IBM Subroutine

  1. mus_IBM_module.f90
  2. mus_IBM_module
  3. mus_inamuro_IBM

public subroutine mus_inamuro_IBM(me, commPattern, globTree, general, pdf, layout, levelDesc, globSys, stateVarMap, convFac, iField, iLevel, state)

This subroutine modifies the state vector according to the method described in the paper \a Lift generation by a two-dimensional symmetric flapping wing: immersed boundary-lattice Boltzmann simulations \a by Inamuro et al. @cite Ota:2012bx .

!$omp single

!$omp end single

!$omp single

!$omp end single

!$omp single

!$omp end single

!$omp single

!$omp end single

!$omp single !$omp end single

!$omp single

!$omp end single

!$omp single

!$omp end single

!$omp single

!$omp end single !$omp single

!$omp end single

!$omp single

!$omp end single

!$omp single

!$omp end single

!$omp single

!$omp end single

Arguments

TypeIntentOptionalAttributesName
type(mus_IBM_type), intent(inout) :: me(:)

datatype to store the surface information
type(tem_commPattern_type), intent(inout) :: commPattern

communication pattern
type(treelmesh_type) :: globTree

global tree information
type(tem_general_type), intent(in) :: general

general data
type(pdf_data_type), intent(inout) :: pdf

pdf_data_type incl. connectivity array on all levels
type(mus_scheme_layout_type) :: layout

scheme layout of the current scheme incl. array of stencils
type(tem_levelDesc_type), intent(inout) :: levelDesc

the level descriptor incl. ghost and halo elements as well as the communicator information on the level iLevel
type(tem_varSys_type) :: globSys

global variable system of the current scheme
integer, intent(in) :: stateVarMap(:)

Position of state variables in globSys
type(mus_convertFac_type), intent(in) :: convFac

conversion factors
integer, intent(in) :: iField

the current field
integer, intent(in) :: iLevel

the current level
real(kind=rk), intent(inout) :: state(:,:)

state_data type

Calls

proc~~mus_inamuro_ibm~~CallsGraph proc~mus_inamuro_ibm mus_inamuro_IBM proc~mus_calcforce_x mus_calcForce_X proc~mus_inamuro_ibm->proc~mus_calcforce_x proc~tem_calctriaareas tem_calcTriaAreas proc~mus_inamuro_ibm->proc~tem_calctriaareas proc~mus_corrvel_x mus_corrVel_X proc~mus_inamuro_ibm->proc~mus_corrvel_x proc~tem_stoptimer tem_stopTimer proc~mus_inamuro_ibm->proc~tem_stoptimer proc~tem_time_sim_stamp tem_time_sim_stamp proc~mus_inamuro_ibm->proc~tem_time_sim_stamp proc~tem_starttimer tem_startTimer proc~mus_inamuro_ibm->proc~tem_starttimer proc~newunit newunit proc~mus_inamuro_ibm->proc~newunit proc~mus_ibmfinishbuff mus_IBMFinishBuff proc~mus_inamuro_ibm->proc~mus_ibmfinishbuff proc~mus_applyforce_x mus_applyForce_X proc~mus_inamuro_ibm->proc~mus_applyforce_x proc~mus_intpvel_xk mus_intpVel_Xk proc~mus_inamuro_ibm->proc~mus_intpvel_xk proc~tem_timecontrol_check tem_timeControl_check proc~mus_inamuro_ibm->proc~tem_timecontrol_check proc~mus_free_ibmdata mus_free_IBMData proc~mus_inamuro_ibm->proc~mus_free_ibmdata proc~mus_inamuroini mus_inamuroIni proc~mus_inamuro_ibm->proc~mus_inamuroini proc~tem_dump_stlb tem_dump_stlb proc~mus_inamuro_ibm->proc~tem_dump_stlb proc~mus_corrforce_xk mus_corrForce_Xk proc~mus_inamuro_ibm->proc~mus_corrforce_xk proc~mus_ibmfinishbuff->proc~tem_stoptimer proc~mus_ibmfinishbuff->proc~tem_starttimer interface~init~3 init proc~mus_ibmfinishbuff->interface~init~3 proc~tem_init_surfdata tem_init_surfData proc~mus_ibmfinishbuff->proc~tem_init_surfdata interface~destroy destroy proc~mus_ibmfinishbuff->interface~destroy proc~tem_updatetree_properties tem_updateTree_properties proc~mus_ibmfinishbuff->proc~tem_updatetree_properties interface~append~4 append proc~mus_ibmfinishbuff->interface~append~4 interface~empty empty proc~mus_ibmfinishbuff->interface~empty proc~tem_treeidintotal tem_treeIDinTotal proc~mus_ibmfinishbuff->proc~tem_treeidintotal interface~getdensity getDensity proc~mus_applyforce_x->interface~getdensity proc~mus_free_ibmdata->interface~destroy interface~getvelocity getVelocity proc~mus_inamuroini->interface~getvelocity proc~tem_baryofid tem_BaryOfId proc~mus_inamuroini->proc~tem_baryofid proc~inamurodelta3d inamuroDelta3D proc~mus_inamuroini->proc~inamurodelta3d proc~mus_inamuroini->interface~append~4 proc~getvelocity_forelemfromstate_noforce getVelocity_forElemFromState_noForce interface~getvelocity->proc~getvelocity_forelemfromstate_noforce proc~getvelocity_forpdfsubset getVelocity_forPdfSubset interface~getvelocity->proc~getvelocity_forpdfsubset proc~getdensity_forpdfsubset getDensity_forPdfSubset interface~getdensity->proc~getdensity_forpdfsubset proc~getdensity_forelemfromstate getDensity_forElemFromState interface~getdensity->proc~getdensity_forelemfromstate

Called by

proc~~mus_inamuro_ibm~~CalledByGraph proc~mus_inamuro_ibm mus_inamuro_IBM proc~do_fast_singlelevel do_fast_singleLevel proc~do_fast_singlelevel->proc~mus_inamuro_ibm

Contents

Variables


Variables

TypeVisibilityAttributesNameInitial
integer, private :: iIBM
integer, private :: iIter
integer, private :: iProc
logical, private :: triggered
integer, private :: forceunit
character(len=LabelLen), private :: forceName
character(len=7), private :: rankstamp
character(len=16), private :: timeStamp
logical, private :: writeForce =.false.
real(kind=rk), private :: maxForce
real(kind=rk), private :: maxVel_X
real(kind=rk), private :: maxVel_X_ini
real(kind=rk), private :: maxVel_Xk
real(kind=rk), private :: maxForce_xk