mom_intrinsic_functions Module Reference

Detailed Description

A module with intrinsic functions that are used by MOM but are not supported by some compilers.

Functions/Subroutines
real function, public	invcosh (x)
	Evaluate the inverse cosh, either using a math library or an equivalent expression. More...

Function/Subroutine Documentation

invcosh()

real function, public mom_intrinsic_functions::invcosh

(

real, intent(in)

x

)

Evaluate the inverse cosh, either using a math library or an equivalent expression.

Parameters

[in]

x

The argument of the inverse of cosh. NaNs will occur if x<1, but there is no error checking

Definition at line 16 of file MOM_intrinsic_functions.F90.

  real, intent(in) :: x !< The argument of the inverse of cosh.  NaNs will
                        !! occur if x<1, but there is no error checking
  real :: invcosh
 
#ifdef __INTEL_COMPILER
  invcosh = acosh(x)
#else
  invcosh = log(x+sqrt(x*x-1))
#endif
 

Referenced by mom_bkgnd_mixing::calculate_bkgnd_mixing(), and mom_bkgnd_mixing::sfc_bkgnd_mixing().

Here is the caller graph for this function: