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

Calculate fNeq scale factor from coarse level to(2) fine 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_f = fNeq_c * ( omega_c / omega_f ) * ( dt_f / dt_c )
dt_f/dt_c is strain rate from coarse to fine scale factor (i.e. sFac)

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

Arguments

Type

Intent

Optional

Attributes

Name

real(kind=rk),

intent(in)

::

omegaC

omega on fine and coarse level

real(kind=rk),

intent(in)

::

omegaF

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.