ocean_sigma_stiffness_limit Function

public pure function ocean_sigma_stiffness_limit() result(lim)

Accessor for SIGMA_STIFFNESS_LIMIT.

Arguments

None

Return Value real(kind=wp)

Source Code

   pure function ocean_sigma_stiffness_limit() result(lim)
      !! Accessor for `SIGMA_STIFFNESS_LIMIT`.
      real(wp) :: lim
      lim = SIGMA_STIFFNESS_LIMIT
   end function ocean_sigma_stiffness_limit