Determine the rotation angle on center and corner points. More...

Functions/Subroutines
subroutine	angles::find_ang (iind, jind, lonBu, latBu, lonCt, anglet)
	Find the rotation angle on center (Ct) grid points. More...

subroutine	angles::find_angchk (iind, jind, angle, angchk)
	Verify the rotation angle on center (Ct) grid points using angle on corner (Bu) grid points. More...

subroutine	angles::find_angq (iind, jind, xangCt, anglet, angle)
	Find the rotation angle on center (Bu) grid points. More...

real(dbl_kind) function	angles::modulo_around_point (x, xc, Lx)
	Return the modulo value of x in an interval [xc-(Lx/2) xc+(Lx/2)] If Lx<=0, then it returns x without applying modulo arithmetic. More...

Detailed Description

Determine the rotation angle on center and corner points.

This module finds the rotation angle for at both center and corner points It utilizes the MOM6 function modulo_around_point

Definition in file angles.F90.

Function/Subroutine Documentation

subroutine angles::find_ang	(	integer, dimension(2), intent(in)	iind,
		integer, dimension(2), intent(in)	jind,
		real(dbl_kind), dimension(:,:), intent(in)	lonBu,
		real(dbl_kind), dimension(:,:), intent(in)	latBu,
		real(dbl_kind), dimension(:,:), intent(in)	lonCt,
		real(dbl_kind), dimension(:,:), intent(out)	anglet
	)

Find the rotation angle on center (Ct) grid points.

Parameters

[in]	iind	the start/end index in the i-dimension of the grid
[in]	jind	the start/end index in the j-dimension of the grid
[in]	lonBu	the longitudes of the corner grid points
[in]	latBu	the latitudes of the corner grid points
[in]	lonCt	the longitudes of the center grid points
[out]	anglet	the rotation angle on Ct points

Definition at line 131 of file angles.F90.

subroutine angles::find_angchk	(	integer, dimension(2), intent(in)	iind,
		integer, dimension(2), intent(in)	jind,
		real(dbl_kind), dimension(:,:), intent(in)	angle,
		real(dbl_kind), dimension(:,:), intent(out)	angchk
	)

Verify the rotation angle on center (Ct) grid points using angle on corner (Bu) grid points.

Parameters

[in]	iind	the start/end index in the i-dimension of the grid
[in]	jind	the start/end index in the j-dimension of the grid
[in]	angle	the rotation angle on Bu points
[out]	angchk	the rotation angle on Ct points

Definition at line 84 of file angles.F90.

subroutine angles::find_angq	(	integer, dimension(2), intent(in)	iind,
		integer, dimension(2), intent(in)	jind,
		real(dbl_kind), dimension(:), intent(in)	xangCt,
		real(dbl_kind), dimension(:,:), intent(in)	anglet,
		real(dbl_kind), dimension(:,:), intent(out)	angle
	)

Find the rotation angle on center (Bu) grid points.

Parameters

[in]	iind	the start/end index in the i-dimension of the grid
[in]	jind	the start/end index in the j-dimension of the grid
[in]	xangCt	the angle across the tripole seam
[in]	anglet	the rotation angle on Ct points
[out]	angle	the rotation angle on Bu points

Definition at line 28 of file angles.F90.

real(dbl_kind) function angles::modulo_around_point	(	real(dbl_kind), intent(in)	x,
		real(dbl_kind), intent(in)	xc,
		real(dbl_kind), intent(in)	Lx
	)

Return the modulo value of x in an interval [xc-(Lx/2) xc+(Lx/2)] If Lx<=0, then it returns x without applying modulo arithmetic.

From src/initialization/MOM_shared_initialization.F90:

Parameters

[in]	x	Value to which to apply modulo arithmetic
[in]	xc	Center of modulo range
[in]	Lx	Modulo range width

Returns: x_mod Value x shifted by an integer multiple of Lx to be close to xc

Definition at line 194 of file angles.F90.