ocean_viscous_cfl_limit Function

public pure function ocean_viscous_cfl_limit() result(lim)

Accessor for VISCOUS_CFL_LIMIT — tests reference this instead of duplicating the literal.

Arguments

None

Return Value real(kind=wp)

Source Code

   pure function ocean_viscous_cfl_limit() result(lim)
      !! Accessor for `VISCOUS_CFL_LIMIT` — tests reference this instead
      !! of duplicating the literal.
      real(wp) :: lim
      lim = VISCOUS_CFL_LIMIT
   end function ocean_viscous_cfl_limit