Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Merge pull request OpenCMISS#103 from chrispbradley/master
Fixing up some missed examples.
  • Loading branch information
chrispbradley committed Nov 22, 2015
2 parents 0879cb3 + 4c099e9 commit 3f5a1c7
Show file tree
Hide file tree
Showing 3 changed files with 275 additions and 272 deletions.
223 changes: 112 additions & 111 deletions FluidMechanics/Stokes/RoutineCheck/ALE/src/ALEExample.f90
Expand Up @@ -55,6 +55,7 @@ PROGRAM STOKESALEEXAMPLE

!PROGRAM LIBRARIES

USE OpenCMISS
USE OpenCMISS_Iron
USE FLUID_MECHANICS_IO_ROUTINES
#ifndef NOMPIMOD
Expand All @@ -80,105 +81,105 @@ PROGRAM STOKESALEEXAMPLE

!Test program parameters

INTEGER(CMFEIntg), PARAMETER :: CoordinateSystemUserNumber=1
INTEGER(CMFEIntg), PARAMETER :: RegionUserNumber=2
INTEGER(CMFEIntg), PARAMETER :: MeshUserNumber=3
INTEGER(CMFEIntg), PARAMETER :: DecompositionUserNumber=4
INTEGER(CMFEIntg), PARAMETER :: GeometricFieldUserNumber=5
INTEGER(CMFEIntg), PARAMETER :: DependentFieldUserNumberStokes=6
INTEGER(CMFEIntg), PARAMETER :: DependentFieldUserNumberMovingMesh=42
INTEGER(CMFEIntg), PARAMETER :: MaterialsFieldUserNumberStokes=8
INTEGER(CMFEIntg), PARAMETER :: MaterialsFieldUserNumberMovingMesh=9
INTEGER(CMFEIntg), PARAMETER :: IndependentFieldUserNumberStokes=10
INTEGER(CMFEIntg), PARAMETER :: IndependentFieldUserNumberMovingMesh=11
INTEGER(CMFEIntg), PARAMETER :: EquationsSetUserNumberStokes=12
INTEGER(CMFEIntg), PARAMETER :: EquationsSetUserNumberMovingMesh=13
INTEGER(CMFEIntg), PARAMETER :: EquationsSetFieldUserNumberStokes=22
INTEGER(CMFEIntg), PARAMETER :: EquationsSetFieldUserNumberMovingMesh=23
INTEGER(CMFEIntg), PARAMETER :: ProblemUserNumber=14

INTEGER(CMFEIntg), PARAMETER :: DomainUserNumber=1
INTEGER(CMFEIntg), PARAMETER :: SolverMovingMeshUserNumber=1
INTEGER(CMFEIntg), PARAMETER :: SolverStokesUserNumber=2
INTEGER(CMFEIntg), PARAMETER :: MaterialsFieldUserNumberStokesMu=1
INTEGER(CMFEIntg), PARAMETER :: MaterialsFieldUserNumberStokesRho=2
INTEGER(CMFEIntg), PARAMETER :: MaterialsFieldUserNumberMovingMeshK=1
INTEGER(CMISSIntg), PARAMETER :: CoordinateSystemUserNumber=1
INTEGER(CMISSIntg), PARAMETER :: RegionUserNumber=2
INTEGER(CMISSIntg), PARAMETER :: MeshUserNumber=3
INTEGER(CMISSIntg), PARAMETER :: DecompositionUserNumber=4
INTEGER(CMISSIntg), PARAMETER :: GeometricFieldUserNumber=5
INTEGER(CMISSIntg), PARAMETER :: DependentFieldUserNumberStokes=6
INTEGER(CMISSIntg), PARAMETER :: DependentFieldUserNumberMovingMesh=42
INTEGER(CMISSIntg), PARAMETER :: MaterialsFieldUserNumberStokes=8
INTEGER(CMISSIntg), PARAMETER :: MaterialsFieldUserNumberMovingMesh=9
INTEGER(CMISSIntg), PARAMETER :: IndependentFieldUserNumberStokes=10
INTEGER(CMISSIntg), PARAMETER :: IndependentFieldUserNumberMovingMesh=11
INTEGER(CMISSIntg), PARAMETER :: EquationsSetUserNumberStokes=12
INTEGER(CMISSIntg), PARAMETER :: EquationsSetUserNumberMovingMesh=13
INTEGER(CMISSIntg), PARAMETER :: EquationsSetFieldUserNumberStokes=22
INTEGER(CMISSIntg), PARAMETER :: EquationsSetFieldUserNumberMovingMesh=23
INTEGER(CMISSIntg), PARAMETER :: ProblemUserNumber=14

INTEGER(CMISSIntg), PARAMETER :: DomainUserNumber=1
INTEGER(CMISSIntg), PARAMETER :: SolverMovingMeshUserNumber=1
INTEGER(CMISSIntg), PARAMETER :: SolverStokesUserNumber=2
INTEGER(CMISSIntg), PARAMETER :: MaterialsFieldUserNumberStokesMu=1
INTEGER(CMISSIntg), PARAMETER :: MaterialsFieldUserNumberStokesRho=2
INTEGER(CMISSIntg), PARAMETER :: MaterialsFieldUserNumberMovingMeshK=1

!Program types

TYPE(EXPORT_CONTAINER):: CM

!Program variables

INTEGER(CMFEIntg) :: NUMBER_OF_DIMENSIONS
INTEGER(CMISSIntg) :: NUMBER_OF_DIMENSIONS

INTEGER(CMFEIntg) :: BASIS_TYPE
INTEGER(CMFEIntg) :: BASIS_NUMBER_SPACE
INTEGER(CMFEIntg) :: BASIS_NUMBER_VELOCITY
INTEGER(CMFEIntg) :: BASIS_NUMBER_PRESSURE
INTEGER(CMFEIntg) :: BASIS_XI_GAUSS_SPACE
INTEGER(CMFEIntg) :: BASIS_XI_GAUSS_VELOCITY
INTEGER(CMFEIntg) :: BASIS_XI_GAUSS_PRESSURE
INTEGER(CMFEIntg) :: BASIS_XI_INTERPOLATION_SPACE
INTEGER(CMFEIntg) :: BASIS_XI_INTERPOLATION_VELOCITY
INTEGER(CMFEIntg) :: BASIS_XI_INTERPOLATION_PRESSURE
INTEGER(CMFEIntg) :: MESH_NUMBER_OF_COMPONENTS
INTEGER(CMFEIntg) :: MESH_COMPONENT_NUMBER_SPACE
INTEGER(CMFEIntg) :: MESH_COMPONENT_NUMBER_VELOCITY
INTEGER(CMFEIntg) :: MESH_COMPONENT_NUMBER_PRESSURE
INTEGER(CMFEIntg) :: NUMBER_OF_NODES_SPACE
INTEGER(CMFEIntg) :: NUMBER_OF_NODES_VELOCITY
INTEGER(CMFEIntg) :: NUMBER_OF_NODES_PRESSURE
INTEGER(CMFEIntg) :: NUMBER_OF_ELEMENT_NODES_SPACE
INTEGER(CMFEIntg) :: NUMBER_OF_ELEMENT_NODES_VELOCITY
INTEGER(CMFEIntg) :: NUMBER_OF_ELEMENT_NODES_PRESSURE
INTEGER(CMFEIntg) :: TOTAL_NUMBER_OF_NODES
INTEGER(CMFEIntg) :: TOTAL_NUMBER_OF_ELEMENTS
INTEGER(CMFEIntg) :: MAXIMUM_ITERATIONS
INTEGER(CMFEIntg) :: RESTART_VALUE
INTEGER(CMFEIntg) :: NUMBER_OF_FIXED_WALL_NODES_STOKES
INTEGER(CMFEIntg) :: NUMBER_OF_MOVED_WALL_NODES_STOKES
INTEGER(CMFEIntg) :: NUMBER_OF_INLET_WALL_NODES_STOKES
INTEGER(CMFEIntg) :: NUMBER_OF_FIXED_WALL_NODES_MOVING_MESH
INTEGER(CMFEIntg) :: NUMBER_OF_MOVED_WALL_NODES_MOVING_MESH

INTEGER(CMFEIntg) :: EQUATIONS_STOKES_OUTPUT
INTEGER(CMFEIntg) :: EQUATIONS_MOVING_MESH_OUTPUT
INTEGER(CMFEIntg) :: COMPONENT_NUMBER
INTEGER(CMFEIntg) :: NODE_NUMBER
INTEGER(CMFEIntg) :: ELEMENT_NUMBER
INTEGER(CMFEIntg) :: NODE_COUNTER
INTEGER(CMFEIntg) :: CONDITION

INTEGER(CMFEIntg) :: DYNAMIC_SOLVER_STOKES_INPUT_OPTION
INTEGER(CMFEIntg) :: DYNAMIC_SOLVER_STOKES_OUTPUT_FREQUENCY
INTEGER(CMFEIntg) :: DYNAMIC_SOLVER_STOKES_OUTPUT_TYPE
INTEGER(CMFEIntg) :: LINEAR_SOLVER_STOKES_OUTPUT_TYPE
INTEGER(CMFEIntg) :: LINEAR_SOLVER_MOVING_MESH_OUTPUT_TYPE
INTEGER(CMISSIntg) :: BASIS_TYPE
INTEGER(CMISSIntg) :: BASIS_NUMBER_SPACE
INTEGER(CMISSIntg) :: BASIS_NUMBER_VELOCITY
INTEGER(CMISSIntg) :: BASIS_NUMBER_PRESSURE
INTEGER(CMISSIntg) :: BASIS_XI_GAUSS_SPACE
INTEGER(CMISSIntg) :: BASIS_XI_GAUSS_VELOCITY
INTEGER(CMISSIntg) :: BASIS_XI_GAUSS_PRESSURE
INTEGER(CMISSIntg) :: BASIS_XI_INTERPOLATION_SPACE
INTEGER(CMISSIntg) :: BASIS_XI_INTERPOLATION_VELOCITY
INTEGER(CMISSIntg) :: BASIS_XI_INTERPOLATION_PRESSURE
INTEGER(CMISSIntg) :: MESH_NUMBER_OF_COMPONENTS
INTEGER(CMISSIntg) :: MESH_COMPONENT_NUMBER_SPACE
INTEGER(CMISSIntg) :: MESH_COMPONENT_NUMBER_VELOCITY
INTEGER(CMISSIntg) :: MESH_COMPONENT_NUMBER_PRESSURE
INTEGER(CMISSIntg) :: NUMBER_OF_NODES_SPACE
INTEGER(CMISSIntg) :: NUMBER_OF_NODES_VELOCITY
INTEGER(CMISSIntg) :: NUMBER_OF_NODES_PRESSURE
INTEGER(CMISSIntg) :: NUMBER_OF_ELEMENT_NODES_SPACE
INTEGER(CMISSIntg) :: NUMBER_OF_ELEMENT_NODES_VELOCITY
INTEGER(CMISSIntg) :: NUMBER_OF_ELEMENT_NODES_PRESSURE
INTEGER(CMISSIntg) :: TOTAL_NUMBER_OF_NODES
INTEGER(CMISSIntg) :: TOTAL_NUMBER_OF_ELEMENTS
INTEGER(CMISSIntg) :: MAXIMUM_ITERATIONS
INTEGER(CMISSIntg) :: RESTART_VALUE
INTEGER(CMISSIntg) :: NUMBER_OF_FIXED_WALL_NODES_STOKES
INTEGER(CMISSIntg) :: NUMBER_OF_MOVED_WALL_NODES_STOKES
INTEGER(CMISSIntg) :: NUMBER_OF_INLET_WALL_NODES_STOKES
INTEGER(CMISSIntg) :: NUMBER_OF_FIXED_WALL_NODES_MOVING_MESH
INTEGER(CMISSIntg) :: NUMBER_OF_MOVED_WALL_NODES_MOVING_MESH

INTEGER(CMISSIntg) :: EQUATIONS_STOKES_OUTPUT
INTEGER(CMISSIntg) :: EQUATIONS_MOVING_MESH_OUTPUT
INTEGER(CMISSIntg) :: COMPONENT_NUMBER
INTEGER(CMISSIntg) :: NODE_NUMBER
INTEGER(CMISSIntg) :: ELEMENT_NUMBER
INTEGER(CMISSIntg) :: NODE_COUNTER
INTEGER(CMISSIntg) :: CONDITION

INTEGER(CMISSIntg) :: DYNAMIC_SOLVER_STOKES_INPUT_OPTION
INTEGER(CMISSIntg) :: DYNAMIC_SOLVER_STOKES_OUTPUT_FREQUENCY
INTEGER(CMISSIntg) :: DYNAMIC_SOLVER_STOKES_OUTPUT_TYPE
INTEGER(CMISSIntg) :: LINEAR_SOLVER_STOKES_OUTPUT_TYPE
INTEGER(CMISSIntg) :: LINEAR_SOLVER_MOVING_MESH_OUTPUT_TYPE

INTEGER, ALLOCATABLE, DIMENSION(:):: FIXED_WALL_NODES_STOKES
INTEGER, ALLOCATABLE, DIMENSION(:):: MOVED_WALL_NODES_STOKES
INTEGER, ALLOCATABLE, DIMENSION(:):: INLET_WALL_NODES_STOKES
INTEGER, ALLOCATABLE, DIMENSION(:):: FIXED_WALL_NODES_MOVING_MESH
INTEGER, ALLOCATABLE, DIMENSION(:):: MOVED_WALL_NODES_MOVING_MESH

REAL(CMFEDP) :: INITIAL_FIELD_STOKES(3)
REAL(CMFEDP) :: INITIAL_FIELD_MOVING_MESH(3)
REAL(CMFEDP) :: BOUNDARY_CONDITIONS_STOKES(3)
REAL(CMFEDP) :: BOUNDARY_CONDITIONS_MOVING_MESH(3)
REAL(CMFEDP) :: DIVERGENCE_TOLERANCE
REAL(CMFEDP) :: RELATIVE_TOLERANCE
REAL(CMFEDP) :: ABSOLUTE_TOLERANCE
REAL(CMFEDP) :: LINESEARCH_ALPHA
REAL(CMFEDP) :: VALUE
REAL(CMFEDP) :: K_PARAM_MOVING_MESH
REAL(CMFEDP) :: MU_PARAM_STOKES
REAL(CMFEDP) :: RHO_PARAM_STOKES

REAL(CMFEDP) :: DYNAMIC_SOLVER_STOKES_START_TIME
REAL(CMFEDP) :: DYNAMIC_SOLVER_STOKES_STOP_TIME
REAL(CMFEDP) :: DYNAMIC_SOLVER_STOKES_THETA
REAL(CMFEDP) :: DYNAMIC_SOLVER_STOKES_TIME_INCREMENT
REAL(CMISSRP) :: INITIAL_FIELD_STOKES(3)
REAL(CMISSRP) :: INITIAL_FIELD_MOVING_MESH(3)
REAL(CMISSRP) :: BOUNDARY_CONDITIONS_STOKES(3)
REAL(CMISSRP) :: BOUNDARY_CONDITIONS_MOVING_MESH(3)
REAL(CMISSRP) :: DIVERGENCE_TOLERANCE
REAL(CMISSRP) :: RELATIVE_TOLERANCE
REAL(CMISSRP) :: ABSOLUTE_TOLERANCE
REAL(CMISSRP) :: LINESEARCH_ALPHA
REAL(CMISSRP) :: VALUE
REAL(CMISSRP) :: K_PARAM_MOVING_MESH
REAL(CMISSRP) :: MU_PARAM_STOKES
REAL(CMISSRP) :: RHO_PARAM_STOKES

REAL(CMISSRP) :: DYNAMIC_SOLVER_STOKES_START_TIME
REAL(CMISSRP) :: DYNAMIC_SOLVER_STOKES_STOP_TIME
REAL(CMISSRP) :: DYNAMIC_SOLVER_STOKES_THETA
REAL(CMISSRP) :: DYNAMIC_SOLVER_STOKES_TIME_INCREMENT

LOGICAL :: EXPORT_FIELD_IO
LOGICAL :: LINEAR_SOLVER_STOKES_DIRECT_FLAG
Expand Down Expand Up @@ -253,9 +254,9 @@ PROGRAM STOKESALEEXAMPLE

!Generic CMISS variables

INTEGER(CMFEIntg) :: NumberOfComputationalNodes,ComputationalNodeNumber,BoundaryNodeDomain
INTEGER(CMFEIntg) :: EquationsSetIndex
INTEGER(CMFEIntg) :: Err
INTEGER(CMISSIntg) :: NumberOfComputationalNodes,ComputationalNodeNumber,BoundaryNodeDomain
INTEGER(CMISSIntg) :: EquationsSetIndex
INTEGER(CMISSIntg) :: Err

#ifdef WIN32
!Initialise QuickWin
Expand Down Expand Up @@ -314,12 +315,12 @@ PROGRAM STOKESALEEXAMPLE
NUMBER_OF_ELEMENT_NODES_VELOCITY=CM%EN_V
NUMBER_OF_ELEMENT_NODES_PRESSURE=CM%EN_P
!Set initial values
INITIAL_FIELD_STOKES(1)=0.0_CMFEDP
INITIAL_FIELD_STOKES(2)=0.0_CMFEDP
INITIAL_FIELD_STOKES(3)=0.0_CMFEDP
INITIAL_FIELD_MOVING_MESH(1)=0.0_CMFEDP
INITIAL_FIELD_MOVING_MESH(2)=0.0_CMFEDP
INITIAL_FIELD_MOVING_MESH(3)=0.0_CMFEDP
INITIAL_FIELD_STOKES(1)=0.0_CMISSRP
INITIAL_FIELD_STOKES(2)=0.0_CMISSRP
INITIAL_FIELD_STOKES(3)=0.0_CMISSRP
INITIAL_FIELD_MOVING_MESH(1)=0.0_CMISSRP
INITIAL_FIELD_MOVING_MESH(2)=0.0_CMISSRP
INITIAL_FIELD_MOVING_MESH(3)=0.0_CMISSRP
!Set boundary conditions
FIXED_WALL_NODES_STOKES_FLAG=.TRUE.
MOVED_WALL_NODES_STOKES_FLAG=.TRUE.
Expand All @@ -343,9 +344,9 @@ PROGRAM STOKESALEEXAMPLE
ALLOCATE(INLET_WALL_NODES_STOKES(NUMBER_OF_INLET_WALL_NODES_STOKES))
INLET_WALL_NODES_STOKES=[46,47,48,49,53,57,58,59,63,64,65,68,71,72,75,106,107,111,112,113,117,118,121,122,125]
!Set initial boundary conditions
BOUNDARY_CONDITIONS_STOKES(1)=0.0_CMFEDP
BOUNDARY_CONDITIONS_STOKES(2)=0.0_CMFEDP
BOUNDARY_CONDITIONS_STOKES(3)=0.0_CMFEDP
BOUNDARY_CONDITIONS_STOKES(1)=0.0_CMISSRP
BOUNDARY_CONDITIONS_STOKES(2)=0.0_CMISSRP
BOUNDARY_CONDITIONS_STOKES(3)=0.0_CMISSRP
ENDIF
IF(FIXED_WALL_NODES_MOVING_MESH_FLAG) THEN
NUMBER_OF_FIXED_WALL_NODES_MOVING_MESH=25
Expand All @@ -356,14 +357,14 @@ PROGRAM STOKESALEEXAMPLE
NUMBER_OF_MOVED_WALL_NODES_MOVING_MESH=25
ALLOCATE(MOVED_WALL_NODES_MOVING_MESH(NUMBER_OF_MOVED_WALL_NODES_MOVING_MESH))
MOVED_WALL_NODES_MOVING_MESH=[1,2,5,6,9,14,15,16,23,28,30,32,36,37,42,76,77,80,81,82,89,94,96,97,102]
BOUNDARY_CONDITIONS_MOVING_MESH(1)=0.0_CMFEDP
BOUNDARY_CONDITIONS_MOVING_MESH(2)=0.0_CMFEDP
BOUNDARY_CONDITIONS_MOVING_MESH(3)=0.0_CMFEDP
BOUNDARY_CONDITIONS_MOVING_MESH(1)=0.0_CMISSRP
BOUNDARY_CONDITIONS_MOVING_MESH(2)=0.0_CMISSRP
BOUNDARY_CONDITIONS_MOVING_MESH(3)=0.0_CMISSRP
ENDIF
!Set material parameters
MU_PARAM_STOKES=1.0_CMFEDP
RHO_PARAM_STOKES=1.0_CMFEDP
K_PARAM_MOVING_MESH=1.0_CMFEDP
MU_PARAM_STOKES=1.0_CMISSRP
RHO_PARAM_STOKES=1.0_CMISSRP
K_PARAM_MOVING_MESH=1.0_CMISSRP
!Set interpolation parameters
BASIS_XI_GAUSS_SPACE=3
BASIS_XI_GAUSS_VELOCITY=3
Expand All @@ -377,19 +378,19 @@ PROGRAM STOKESALEEXAMPLE
EQUATIONS_STOKES_OUTPUT=CMFE_EQUATIONS_NO_OUTPUT
EQUATIONS_MOVING_MESH_OUTPUT=CMFE_EQUATIONS_NO_OUTPUT
!Set time parameter
DYNAMIC_SOLVER_STOKES_START_TIME=0.0_CMFEDP
DYNAMIC_SOLVER_STOKES_STOP_TIME=5.0_CMFEDP
DYNAMIC_SOLVER_STOKES_TIME_INCREMENT=1.0_CMFEDP
DYNAMIC_SOLVER_STOKES_THETA=1.0_CMFEDP
DYNAMIC_SOLVER_STOKES_START_TIME=0.0_CMISSRP
DYNAMIC_SOLVER_STOKES_STOP_TIME=5.0_CMISSRP
DYNAMIC_SOLVER_STOKES_TIME_INCREMENT=1.0_CMISSRP
DYNAMIC_SOLVER_STOKES_THETA=1.0_CMISSRP
!Set result output parameter
DYNAMIC_SOLVER_STOKES_OUTPUT_FREQUENCY=1
!Set bc input option
DYNAMIC_SOLVER_STOKES_INPUT_OPTION=2
!Set solver parameters
LINEAR_SOLVER_MOVING_MESH_DIRECT_FLAG=.TRUE.
LINEAR_SOLVER_STOKES_DIRECT_FLAG=.FALSE.
RELATIVE_TOLERANCE=1.0E-10_CMFEDP !default: 1.0E-05_CMFEDP
ABSOLUTE_TOLERANCE=1.0E-10_CMFEDP !default: 1.0E-10_CMFEDP
RELATIVE_TOLERANCE=1.0E-10_CMISSRP !default: 1.0E-05_CMISSRP
ABSOLUTE_TOLERANCE=1.0E-10_CMISSRP !default: 1.0E-10_CMISSRP
DIVERGENCE_TOLERANCE=1.0E20 !default: 1.0E5
MAXIMUM_ITERATIONS=100000 !default: 100000
RESTART_VALUE=3000 !default: 30
Expand Down Expand Up @@ -905,7 +906,7 @@ PROGRAM STOKESALEEXAMPLE
CALL cmfe_Decomposition_NodeDomainGet(Decomposition,NODE_NUMBER,1,BoundaryNodeDomain,Err)
IF(BoundaryNodeDomain==ComputationalNodeNumber) THEN
DO COMPONENT_NUMBER=1,NUMBER_OF_DIMENSIONS
VALUE=0.0_CMFEDP
VALUE=0.0_CMISSRP
CALL cmfe_BoundaryConditions_SetNode(BoundaryConditionsStokes,DependentFieldStokes,CMFE_FIELD_U_VARIABLE_TYPE,1, &
& CMFE_NO_GLOBAL_DERIV,NODE_NUMBER,COMPONENT_NUMBER,CONDITION,VALUE,Err)
ENDDO
Expand All @@ -920,7 +921,7 @@ PROGRAM STOKESALEEXAMPLE
CALL cmfe_Decomposition_NodeDomainGet(Decomposition,NODE_NUMBER,1,BoundaryNodeDomain,Err)
IF(BoundaryNodeDomain==ComputationalNodeNumber) THEN
DO COMPONENT_NUMBER=1,NUMBER_OF_DIMENSIONS
VALUE=0.0_CMFEDP
VALUE=0.0_CMISSRP
CALL cmfe_BoundaryConditions_SetNode(BoundaryConditionsStokes,DependentFieldStokes,CMFE_FIELD_U_VARIABLE_TYPE,1, &
& CMFE_NO_GLOBAL_DERIV,NODE_NUMBER,COMPONENT_NUMBER,CONDITION,VALUE,Err)
ENDDO
Expand Down Expand Up @@ -955,7 +956,7 @@ PROGRAM STOKESALEEXAMPLE
CALL cmfe_Decomposition_NodeDomainGet(Decomposition,NODE_NUMBER,1,BoundaryNodeDomain,Err)
IF(BoundaryNodeDomain==ComputationalNodeNumber) THEN
DO COMPONENT_NUMBER=1,NUMBER_OF_DIMENSIONS
VALUE=0.0_CMFEDP
VALUE=0.0_CMISSRP
CALL cmfe_BoundaryConditions_SetNode(BoundaryConditionsMovingMesh,DependentFieldMovingMesh,CMFE_FIELD_U_VARIABLE_TYPE, &
& 1, &
& CMFE_NO_GLOBAL_DERIV,NODE_NUMBER,COMPONENT_NUMBER,CONDITION,VALUE,Err)
Expand Down

0 comments on commit 3f5a1c7

Please sign in to comment.