mom_array_transform::allocate_rotated_array Interface Reference

Detailed Description

Allocate an array based on the rotated index map of an unrotated reference array.

Definition at line 64 of file MOM_array_transform.F90.

Private functions
subroutine	allocate_rotated_array_real_2d (A_in, lb, turns, A)
	Allocate a 2d real array on the rotated index map of a reference array. More...
subroutine	allocate_rotated_array_real_3d (A_in, lb, turns, A)
	Allocate a 3d real array on the rotated index map of a reference array. More...
subroutine	allocate_rotated_array_real_4d (A_in, lb, turns, A)
	Allocate a 4d real array on the rotated index map of a reference array. More...
subroutine	allocate_rotated_array_integer (A_in, lb, turns, A)
	Allocate a 2d integer array on the rotated index map of a reference array. More...

Detailed Description

Allocate an array based on the rotated index map of an unrotated reference array.

Definition at line 64 of file MOM_array_transform.F90.

Functions and subroutines

allocate_rotated_array_integer()

subroutine mom_array_transform::allocate_rotated_array::allocate_rotated_array_integer ( integer, dimension(lb(1):,lb(2):), intent(in)  A_in, integer, dimension(2), intent(in)  lb, integer, intent(in)  turns, integer, dimension(:,:), intent(inout), allocatable  A  )

private

Allocate a 2d integer array on the rotated index map of a reference array.

Parameters

[in]	lb	Lower index bounds of A_in
[in]	a_in	Reference array
[in]	turns	Number of quarter turns
[in,out]	a	Array on rotated index

Definition at line 342 of file MOM_array_transform.F90.

  integer, intent(in) :: lb(2)                  !< Lower index bounds of A_in
  integer, intent(in) :: a_in(lb(1):,lb(2):)    !< Reference array
  integer, intent(in) :: turns                  !< Number of quarter turns
  integer, allocatable, intent(inout) :: a(:,:) !< Array on rotated index

  integer :: ub(2)

  ub(:) = ubound(a_in)

  if (modulo(turns, 2) /= 0) then
    allocate(a(lb(2):ub(2), lb(1):ub(1)))
  else
    allocate(a(lb(1):ub(1), lb(2):ub(2)))
  endif

allocate_rotated_array_real_2d()

subroutine mom_array_transform::allocate_rotated_array::allocate_rotated_array_real_2d ( real, dimension(lb(1):, lb(2):), intent(in)  A_in, integer, dimension(2), intent(in)  lb, integer, intent(in)  turns, real, dimension(:,:), intent(inout), allocatable  A  )

private

Allocate a 2d real array on the rotated index map of a reference array.

Parameters

[in]	lb	Lower index bounds of A_in
[in]	a_in	Reference array
[in]	turns	Number of quarter turns
[in,out]	a	Array on rotated index

Definition at line 282 of file MOM_array_transform.F90.

  ! NOTE: lb must be declared before A_in
  integer, intent(in) :: lb(2)                !< Lower index bounds of A_in
  real, intent(in) :: a_in(lb(1):, lb(2):)    !< Reference array
  integer, intent(in) :: turns                !< Number of quarter turns
  real, allocatable, intent(inout) :: a(:,:)  !< Array on rotated index

  integer :: ub(2)

  ub(:) = ubound(a_in)

  if (modulo(turns, 2) /= 0) then
    allocate(a(lb(2):ub(2), lb(1):ub(1)))
  else
    allocate(a(lb(1):ub(1), lb(2):ub(2)))
  endif

allocate_rotated_array_real_3d()

subroutine mom_array_transform::allocate_rotated_array::allocate_rotated_array_real_3d ( real, dimension(lb(1):, lb(2):, lb(3):), intent(in)  A_in, integer, dimension(3), intent(in)  lb, integer, intent(in)  turns, real, dimension(:,:,:), intent(inout), allocatable  A  )

private

Allocate a 3d real array on the rotated index map of a reference array.

Parameters

[in]	lb	Lower index bounds of A_in
[in]	a_in	Reference array
[in]	turns	Number of quarter turns
[in,out]	a	Array on rotated index

Definition at line 302 of file MOM_array_transform.F90.

  ! NOTE: lb must be declared before A_in
  integer, intent(in) :: lb(3)                    !< Lower index bounds of A_in
  real, intent(in) :: a_in(lb(1):, lb(2):, lb(3):)  !< Reference array
  integer, intent(in) :: turns                    !< Number of quarter turns
  real, allocatable, intent(inout) :: a(:,:,:)    !< Array on rotated index

  integer :: ub(3)

  ub(:) = ubound(a_in)

  if (modulo(turns, 2) /= 0) then
    allocate(a(lb(2):ub(2), lb(1):ub(1), lb(3):ub(3)))
  else
    allocate(a(lb(1):ub(1), lb(2):ub(2), lb(3):ub(3)))
  endif

allocate_rotated_array_real_4d()

subroutine mom_array_transform::allocate_rotated_array::allocate_rotated_array_real_4d ( real, dimension(lb(1):,lb(2):,lb(3):,lb(4):), intent(in)  A_in, integer, dimension(4), intent(in)  lb, integer, intent(in)  turns, real, dimension(:,:,:,:), intent(inout), allocatable  A  )

private

Allocate a 4d real array on the rotated index map of a reference array.

Parameters

[in]	lb	Lower index bounds of A_in
[in]	a_in	Reference array
[in]	turns	Number of quarter turns
[in,out]	a	Array on rotated index

Definition at line 322 of file MOM_array_transform.F90.

  ! NOTE: lb must be declared before A_in
  integer, intent(in) :: lb(4)                    !< Lower index bounds of A_in
  real, intent(in) :: a_in(lb(1):,lb(2):,lb(3):,lb(4):) !< Reference array
  integer, intent(in) :: turns                    !< Number of quarter turns
  real, allocatable, intent(inout) :: a(:,:,:,:)  !< Array on rotated index

  integer:: ub(4)

  ub(:) = ubound(a_in)

  if (modulo(turns, 2) /= 0) then
    allocate(a(lb(2):ub(2), lb(1):ub(1), lb(3):ub(3), lb(4):ub(4)))
  else
    allocate(a(lb(1):ub(1), lb(2):ub(2), lb(3):ub(3), lb(4):ub(4)))
  endif

---

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

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