mom_array_transform mom_array_transform::allocate_rotated_array mom_array_transform::rotate_array mom_array_transform::rotate_array_pair mom_array_transform::rotate_vector subroutine subroutine mom_array_transform::rotate_array_real_2d (A_in, turns, A) rotate_array_real_2d A_in A_in turns turns A A Rotate the elements of a 2d real array along first and second axes. a_in Unrotated array turns Number of quarter turns a Rotated array subroutine subroutine mom_array_transform::rotate_array_real_3d (A_in, turns, A) rotate_array_real_3d A_in A_in turns turns A A Rotate the elements of a 3d real array along first and second axes. a_in Unrotated array turns Number of quarter turns a Rotated array subroutine subroutine mom_array_transform::rotate_array_real_4d (A_in, turns, A) rotate_array_real_4d A_in A_in turns turns A A Rotate the elements of a 4d real array along first and second axes. a_in Unrotated array turns Number of quarter turns a Rotated array subroutine subroutine mom_array_transform::rotate_array_integer (A_in, turns, A) rotate_array_integer A_in A_in turns turns A A Rotate the elements of a 2d integer array along first and second axes. a_in Unrotated array turns Number of quarter turns a Rotated array subroutine subroutine mom_array_transform::rotate_array_logical (A_in, turns, A) rotate_array_logical A_in A_in turns turns A A Rotate the elements of a 2d logical array along first and second axes. a_in Unrotated array turns Number of quarter turns a Rotated array subroutine subroutine mom_array_transform::rotate_array_pair_real_2d (A_in, B_in, turns, A, B) rotate_array_pair_real_2d A_in A_in B_in B_in turns turns A A B B Rotate the elements of a 2d real array pair along first and second axes. a_in Unrotated scalar array pair b_in Unrotated scalar array pair turns Number of quarter turns a Rotated scalar array pair b Rotated scalar array pair subroutine subroutine mom_array_transform::rotate_array_pair_real_3d (A_in, B_in, turns, A, B) rotate_array_pair_real_3d A_in A_in B_in B_in turns turns A A B B Rotate the elements of a 3d real array pair along first and second axes. a_in Unrotated scalar array pair b_in Unrotated scalar array pair turns Number of quarter turns a Rotated scalar array pair b Rotated scalar array pair subroutine subroutine mom_array_transform::rotate_array_pair_integer (A_in, B_in, turns, A, B) rotate_array_pair_integer A_in A_in B_in B_in turns turns A A B B Rotate the elements of a 4d real array pair along first and second axes. a_in Unrotated scalar array pair b_in Unrotated scalar array pair turns Number of quarter turns a Rotated scalar array pair b Rotated scalar array pair subroutine subroutine mom_array_transform::rotate_vector_real_2d (A_in, B_in, turns, A, B) rotate_vector_real_2d A_in A_in B_in B_in turns turns A A B B Rotate the elements of a 2d real vector along first and second axes. a_in First component of unrotated vector b_in Second component of unrotated vector turns Number of quarter turns a First component of rotated vector b Second component of unrotated vector subroutine subroutine mom_array_transform::rotate_vector_real_3d (A_in, B_in, turns, A, B) rotate_vector_real_3d A_in A_in B_in B_in turns turns A A B B Rotate the elements of a 3d real vector along first and second axes. a_in First component of unrotated vector b_in Second component of unrotated vector turns Number of quarter turns a First component of rotated vector b Second component of unrotated vector subroutine subroutine mom_array_transform::rotate_vector_real_4d (A_in, B_in, turns, A, B) rotate_vector_real_4d A_in A_in B_in B_in turns turns A A B B Rotate the elements of a 4d real vector along first and second axes. a_in First component of unrotated vector b_in Second component of unrotated vector turns Number of quarter turns a First component of rotated vector b Second component of unrotated vector subroutine subroutine mom_array_transform::allocate_rotated_array_real_2d (A_in, lb, turns, A) allocate_rotated_array_real_2d A_in A_in lb lb turns turns A A Allocate a 2d real array on the rotated index map of a reference array. lb Lower index bounds of A_in a_in Reference array turns Number of quarter turns a Array on rotated index subroutine subroutine mom_array_transform::allocate_rotated_array_real_3d (A_in, lb, turns, A) allocate_rotated_array_real_3d A_in A_in lb lb turns turns A A Allocate a 3d real array on the rotated index map of a reference array. lb Lower index bounds of A_in a_in Reference array turns Number of quarter turns a Array on rotated index subroutine subroutine mom_array_transform::allocate_rotated_array_real_4d (A_in, lb, turns, A) allocate_rotated_array_real_4d A_in A_in lb lb turns turns A A Allocate a 4d real array on the rotated index map of a reference array. lb Lower index bounds of A_in a_in Reference array turns Number of quarter turns a Array on rotated index subroutine subroutine mom_array_transform::allocate_rotated_array_integer (A_in, lb, turns, A) allocate_rotated_array_integer A_in A_in lb lb turns turns A A Allocate a 2d integer array on the rotated index map of a reference array. lb Lower index bounds of A_in a_in Reference array turns Number of quarter turns a Array on rotated index Module for supporting the rotation of a field's index map. The implementation of each angle is described below. +90deg: B(i,j) = A(n-j,i) = transpose, then row reverse 180deg: B(i,j) = A(m-i,n-j) = row reversal + column reversal -90deg: B(i,j) = A(j,m-i) = row reverse, then transpose 90 degree rotations change the shape of the field, and are handled separately from 180 degree rotations.