hmap_RZ_eval Function

public function hmap_RZ_eval(sf, q_in) result(x_out)

evaluate the mapping h (X^1,X^2,zeta) -> (x,y,z) cartesian

Type Bound

t_hmap_RZ

Arguments

Type IntentOptional Attributes Name
class(t_hmap_RZ), intent(in) :: sf
real(kind=wp), intent(in) :: q_in(3)

Return Value real(kind=wp), (3)


Called by

proc~~hmap_rz_eval~~CalledByGraph proc~hmap_rz_eval t_hmap_RZ%hmap_RZ_eval proc~hmap_rz_test hmap_RZ_test proc~hmap_rz_test->proc~hmap_rz_eval proc~hmap_rz_init hmap_RZ_init proc~hmap_rz_init->proc~hmap_rz_test interface~t_hmap_rz t_hmap_RZ interface~t_hmap_rz->proc~hmap_rz_init

Source Code

FUNCTION hmap_RZ_eval( sf ,q_in) RESULT(x_out)
IMPLICIT NONE
!-----------------------------------------------------------------------------------------------------------------------------------
! INPUT VARIABLES
  REAL(wp)        , INTENT(IN) :: q_in(3)
  CLASS(t_hmap_RZ), INTENT(IN) :: sf
!-----------------------------------------------------------------------------------------------------------------------------------
! OUTPUT VARIABLES
  REAL(wp)                     :: x_out(3)
!===================================================================================================================================
  !  q= (R,Z,zeta)
  ! |x |  | R*cos(zeta) |
  ! |y |= |-R*sin(zeta) |
  ! |z |  | Z           |

  ASSOCIATE(R=>q_in(1),Z=>q_in(2),zeta=>q_in(3))
  x_out(1:3)=(/ R*COS(zeta), &
               -R*SIN(zeta), &
                Z           /)
  END ASSOCIATE
END FUNCTION hmap_RZ_eval