ICFERST  22-06
Reservoir simulator based on DCVFEM, Dynamic Mesh optimisation and Surface-based modelling
multi_surface_tension.F90 File Reference
#include "fdebug.h"
Include dependency graph for multi_surface_tension.F90:

Modules

module  multi_surface_tension
 This module contains the subroutines to include surface tension. Currently only used for INERTIA.
 

Functions/Subroutines

subroutine multi_surface_tension::calculate_surface_tension_new (state, packed_state, Mdims, Mspars, ndgln, Mdisopt, PLIKE_GRAD_SOU_COEF, PLIKE_GRAD_SOU_GRAD, IPLIKE_GRAD_SOU)
 
subroutine multi_surface_tension::surface_tension_wrapper_new (state, packed_state, PLIKE_GRAD_SOU_COEF, PLIKE_GRAD_SOU_GRAD, SUF_TENSION_COEF, ANGLE, VOLUME_FRAC, Mdims, Mspars, ndgln, Mdisopt)
 Calculate the surface tension force as a pressure force term: PLIKE_GRAD_SOU_COEF and PLIKE_GRAD_SOU_GRAD for a given DevFunsVOLUME fraction field VOLUME_FRAC SUF_TENSION_COEF is the surface tension coefficient. More...
 
subroutine loc_1st_deriv_xyz_dg_curv (CURV, DISTANCE_FUN, SOL_DERIV_X, SOL_DERIV_Y, SOL_DERIV_Z, NDIM, CV_NDGLN, X_NLOC, X_NDGLN, CV_NGI, CV_NLOC, CVFEN, CVFENX, CVFENY, CVFENZ, X, Y, Z, NFACE, FACE_ELE, CV_SLOCLIST, CV_SNLOC, SBCVNGI, SBCVFEN, SBCVFENSLX, SBCVFENSLY, SBCVFEWEIGH, ELE, DETWEI)
 
subroutine loc_1st_deriv_xyz_dg_deriv (DISTANCE_FUN, SOL_DERIV_X, SOL_DERIV_Y, SOL_DERIV_Z, NDIM, CV_NDGLN, X_NLOC, X_NDGLN, CV_NGI, CV_NLOC, CVFEN, CVFENX, CVFENY, CVFENZ, X, Y, Z, NFACE, FACE_ELE, CV_SLOCLIST, CV_SNLOC, SBCVNGI, SBCVFEN, SBCVFENSLX, SBCVFENSLY, SBCVFEWEIGH, ELE, DETWEI, factor, angle)
 

Function/Subroutine Documentation

◆ loc_1st_deriv_xyz_dg_curv()

subroutine surface_tension_wrapper_new::loc_1st_deriv_xyz_dg_curv ( real, dimension( :), intent(inout)  CURV,
real, dimension( : ), intent(in)  DISTANCE_FUN,
real, dimension( :), intent(in)  SOL_DERIV_X,
real, dimension( :), intent(in)  SOL_DERIV_Y,
real, dimension( :), intent(in)  SOL_DERIV_Z,
integer, intent(in)  NDIM,
integer, dimension( : ), intent(in)  CV_NDGLN,
integer, intent(in)  X_NLOC,
integer, dimension( : ), intent(in)  X_NDGLN,
integer, intent(in)  CV_NGI,
integer, intent(in)  CV_NLOC,
real, dimension( :, : ), intent(in)  CVFEN,
real, dimension( :, : ), intent(in)  CVFENX,
real, dimension( :, : ), intent(in)  CVFENY,
real, dimension( :, : ), intent(in)  CVFENZ,
real, dimension( : ), intent(in)  X,
real, dimension( : ), intent(in)  Y,
real, dimension( : ), intent(in)  Z,
integer, intent(in)  NFACE,
integer, dimension( :,: ), intent(in)  FACE_ELE,
integer, dimension( :,: ), intent(in)  CV_SLOCLIST,
integer, intent(in)  CV_SNLOC,
integer, intent(in)  SBCVNGI,
real, dimension( :, : ), intent(in)  SBCVFEN,
real, dimension( :, : ), intent(in)  SBCVFENSLX,
real, dimension( :, : ), intent(in)  SBCVFENSLY,
real, dimension( : ), intent(in)  SBCVFEWEIGH,
integer, intent(in)  ELE,
real, dimension( : ), intent(in)  DETWEI 
)
Here is the call graph for this function:
Here is the caller graph for this function:

◆ loc_1st_deriv_xyz_dg_deriv()

subroutine surface_tension_wrapper_new::loc_1st_deriv_xyz_dg_deriv ( real, dimension( : ), intent(in)  DISTANCE_FUN,
real, dimension( : ), intent(inout)  SOL_DERIV_X,
real, dimension( : ), intent(inout)  SOL_DERIV_Y,
real, dimension( : ), intent(inout)  SOL_DERIV_Z,
integer, intent(in)  NDIM,
integer, dimension( : ), intent(in)  CV_NDGLN,
integer, intent(in)  X_NLOC,
integer, dimension( : ), intent(in)  X_NDGLN,
integer, intent(in)  CV_NGI,
integer, intent(in)  CV_NLOC,
real, dimension( :, :), intent(in)  CVFEN,
real, dimension( :, :), intent(in)  CVFENX,
real, dimension( :, :), intent(in)  CVFENY,
real, dimension( :, :), intent(in)  CVFENZ,
real, dimension( : ), intent(in)  X,
real, dimension( : ), intent(in)  Y,
real, dimension( : ), intent(in)  Z,
integer, intent(in)  NFACE,
integer, dimension( :,: ), intent(in)  FACE_ELE,
integer, dimension( :,: ), intent(in)  CV_SLOCLIST,
integer, intent(in)  CV_SNLOC,
integer, intent(in)  SBCVNGI,
real, dimension( :, : ), intent(in)  SBCVFEN,
real, dimension( :, : ), intent(in)  SBCVFENSLX,
real, dimension( :, : ), intent(in)  SBCVFENSLY,
real, dimension( : ), intent(in)  SBCVFEWEIGH,
integer, intent(in)  ELE,
real, dimension( : ), intent(in)  DETWEI,
integer, intent(in)  factor,
real, intent(in)  angle 
)
Here is the call graph for this function:
Here is the caller graph for this function: