public pure function get_fNeqFac_f2c(omegaF, omegaC, sFac) result(fac)

Calculate fNeq scale factor from fine level to(2) coarse level.
Such scale make sure continuuity of strain rate and shear stress over
levels.
To achive equal strain rate, we want:
fNeq_c * omega_c / dt_c = fNeq_f * omega_f / dt_f
rearrange this, we get:
fNeq_c = fNeq_f * ( omega_f / omega_c ) * ( dt_c / dt_f )
dt_c/dt_f is strain rate scale factor (i.e. sFac)

This function can be used converting fNeq_f to fNeq_c, such as fill coarse
from finer interpolation routines.
How to use this function:
sFac = physics%sfac( fineLevel, coarseLevel )
fNeq_c = fNeq_f * fNeqFac( omega_f, omega_c, sFac )

Arguments

Type

Intent

Optional

Attributes

Name

real(kind=rk),

intent(in)

::

omegaF

omega on fine and coarse level

real(kind=rk),

intent(in)

::

omegaC

omega on fine and coarse level

real(kind=rk),

intent(in)

::

sFac

strain rate scaling factor that from fine to coarse

Nodes of different colours represent the following:

Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.