mom_array_transform::rotate_array Interface Reference

Detailed Description

Rotate the elements of an array to the rotated set of indices. Rotation is applied across the first and second axes of the array.

Definition at line 27 of file MOM_array_transform.F90.

Private functions
subroutine	rotate_array_real_2d (A_in, turns, A)
	Rotate the elements of a 2d real array along first and second axes. More...
subroutine	rotate_array_real_3d (A_in, turns, A)
	Rotate the elements of a 3d real array along first and second axes. More...
subroutine	rotate_array_real_4d (A_in, turns, A)
	Rotate the elements of a 4d real array along first and second axes. More...
subroutine	rotate_array_integer (A_in, turns, A)
	Rotate the elements of a 2d integer array along first and second axes. More...
subroutine	rotate_array_logical (A_in, turns, A)
	Rotate the elements of a 2d logical array along first and second axes. More...

Detailed Description

Rotate the elements of an array to the rotated set of indices. Rotation is applied across the first and second axes of the array.

Definition at line 27 of file MOM_array_transform.F90.

Functions and subroutines

rotate_array_integer()

subroutine mom_array_transform::rotate_array::rotate_array_integer ( integer, dimension(:,:), intent(in)  A_in, integer, intent(in)  turns, integer, dimension(:,:), intent(out)  A  )

private

Rotate the elements of a 2d integer array along first and second axes.

Parameters

[in]	a_in	Unrotated array
[in]	turns	Number of quarter turns
[out]	a	Rotated array

Definition at line 128 of file MOM_array_transform.F90.

  integer, intent(in) :: a_in(:,:)  !< Unrotated array
  integer, intent(in) :: turns      !< Number of quarter turns
  integer, intent(out) :: a(:,:)    !< Rotated array

  integer :: m, n

  m = size(a_in, 1)
  n = size(a_in, 2)

  select case (modulo(turns, 4))
    case(0)
      a(:,:) = a_in(:,:)
    case(1)
      a(:,:) = transpose(a_in)
      a(:,:) = a(n:1:-1, :)
    case(2)
      a(:,:) = a_in(m:1:-1, n:1:-1)
    case(3)
      a(:,:) = transpose(a_in(m:1:-1, :))
  end select

rotate_array_logical()

subroutine mom_array_transform::rotate_array::rotate_array_logical ( logical, dimension(:,:), intent(in)  A_in, integer, intent(in)  turns, logical, dimension(:,:), intent(out)  A  )

private

Rotate the elements of a 2d logical array along first and second axes.

Parameters

[in]	a_in	Unrotated array
[in]	turns	Number of quarter turns
[out]	a	Rotated array

Definition at line 153 of file MOM_array_transform.F90.

  logical, intent(in) :: a_in(:,:)  !< Unrotated array
  integer, intent(in) :: turns      !< Number of quarter turns
  logical, intent(out) :: a(:,:)    !< Rotated array

  integer :: m, n

  m = size(a_in, 1)
  n = size(a_in, 2)

  select case (modulo(turns, 4))
    case(0)
      a(:,:) = a_in(:,:)
    case(1)
      a(:,:) = transpose(a_in)
      a(:,:) = a(n:1:-1, :)
    case(2)
      a(:,:) = a_in(m:1:-1, n:1:-1)
    case(3)
      a(:,:) = transpose(a_in(m:1:-1, :))
  end select

rotate_array_real_2d()

subroutine mom_array_transform::rotate_array::rotate_array_real_2d ( real, dimension(:,:), intent(in)  A_in, integer, intent(in)  turns, real, dimension(:,:), intent(out)  A  )

private

Rotate the elements of a 2d real array along first and second axes.

Parameters

[in]	a_in	Unrotated array
[in]	turns	Number of quarter turns
[out]	a	Rotated array

Definition at line 75 of file MOM_array_transform.F90.

  real, intent(in) :: a_in(:,:) !< Unrotated array
  integer, intent(in) :: turns  !< Number of quarter turns
  real, intent(out) :: a(:,:)   !< Rotated array

  integer :: m, n

  m = size(a_in, 1)
  n = size(a_in, 2)

  select case (modulo(turns, 4))
    case(0)
      a(:,:) = a_in(:,:)
    case(1)
      a(:,:) = transpose(a_in)
      a(:,:) = a(n:1:-1, :)
    case(2)
      a(:,:) = a_in(m:1:-1, n:1:-1)
    case(3)
      a(:,:) = transpose(a_in(m:1:-1, :))
  end select

rotate_array_real_3d()

subroutine mom_array_transform::rotate_array::rotate_array_real_3d ( real, dimension(:,:,:), intent(in)  A_in, integer, intent(in)  turns, real, dimension(:,:,:), intent(out)  A  )

private

Rotate the elements of a 3d real array along first and second axes.

Parameters

[in]	a_in	Unrotated array
[in]	turns	Number of quarter turns
[out]	a	Rotated array

Definition at line 100 of file MOM_array_transform.F90.

  real, intent(in) :: a_in(:,:,:) !< Unrotated array
  integer, intent(in) :: turns    !< Number of quarter turns
  real, intent(out) :: a(:,:,:)   !< Rotated array

  integer :: k

  do k = 1, size(a_in, 3)
    call rotate_array(a_in(:,:,k), turns, a(:,:,k))
  enddo

rotate_array_real_4d()

subroutine mom_array_transform::rotate_array::rotate_array_real_4d ( real, dimension(:,:,:,:), intent(in)  A_in, integer, intent(in)  turns, real, dimension(:,:,:,:), intent(out)  A  )

private

Rotate the elements of a 4d real array along first and second axes.

Parameters

[in]	a_in	Unrotated array
[in]	turns	Number of quarter turns
[out]	a	Rotated array

Definition at line 114 of file MOM_array_transform.F90.

  real, intent(in) :: a_in(:,:,:,:) !< Unrotated array
  integer, intent(in) :: turns      !< Number of quarter turns
  real, intent(out) :: a(:,:,:,:)   !< Rotated array

  integer :: n

  do n = 1, size(a_in, 4)
    call rotate_array(a_in(:,:,:,n), turns, a(:,:,:,n))
  enddo

---

The documentation for this interface was generated from the following file:

• /home/cermak/src/MOM6.devrob/src/framework/MOM_array_transform.F90