hmap_cyl_eval_Jh Function

public function hmap_cyl_eval_Jh(sf, q_in) result(Jh)

evaluate Jacobian of mapping h: J_h=sqrt(det(G)) at q=(X^1,X^2,zeta)

Type Bound

t_hmap_cyl

Arguments

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

Return Value real(kind=wp)


Called by

proc~~hmap_cyl_eval_jh~~CalledByGraph proc~hmap_cyl_eval_jh t_hmap_cyl%hmap_cyl_eval_Jh proc~hmap_cyl_test hmap_cyl_test proc~hmap_cyl_test->proc~hmap_cyl_eval_jh proc~hmap_cyl_init_params hmap_cyl_init_params proc~hmap_cyl_init_params->proc~hmap_cyl_test interface~t_hmap_cyl t_hmap_cyl interface~t_hmap_cyl->proc~hmap_cyl_init_params proc~hmap_cyl_init hmap_cyl_init interface~t_hmap_cyl->proc~hmap_cyl_init proc~hmap_cyl_init->proc~hmap_cyl_init_params

Source Code

FUNCTION hmap_cyl_eval_Jh( sf ,q_in) RESULT(Jh)
! MODULES
IMPLICIT NONE
!-----------------------------------------------------------------------------------------------------------------------------------
! INPUT VARIABLES
  CLASS(t_hmap_cyl), INTENT(IN) :: sf
  REAL(wp)         , INTENT(IN) :: q_in(3)
!-----------------------------------------------------------------------------------------------------------------------------------
! OUTPUT VARIABLES
  REAL(wp)                      :: Jh
!===================================================================================================================================
  Jh=sf%cyl_len
END FUNCTION hmap_cyl_eval_Jh