hmap_knot_eval_Zl Function

public pure function hmap_knot_eval_Zl(sf, q_in) result(Zl_out)

evaluate the effective vertical coordinate Zl(q)

Type Bound

t_hmap_knot

Arguments

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

Return Value real(kind=wp)


Called by

proc~~hmap_knot_eval_zl~~CalledByGraph proc~hmap_knot_eval_zl t_hmap_knot%hmap_knot_eval_Zl proc~hmap_knot_eval t_hmap_knot%hmap_knot_eval proc~hmap_knot_eval->proc~hmap_knot_eval_zl proc~hmap_knot_test hmap_knot_test proc~hmap_knot_test->proc~hmap_knot_eval proc~hmap_knot_init_params hmap_knot_init_params proc~hmap_knot_init_params->proc~hmap_knot_test interface~t_hmap_knot t_hmap_knot interface~t_hmap_knot->proc~hmap_knot_init_params proc~hmap_knot_init hmap_knot_init interface~t_hmap_knot->proc~hmap_knot_init proc~hmap_knot_init->proc~hmap_knot_init_params

Source Code

PURE FUNCTION hmap_knot_eval_Zl( sf ,q_in) RESULT(Zl_out)
! MODULES
  IMPLICIT NONE
!-----------------------------------------------------------------------------------------------------------------------------------
! INPUT VARIABLES
  REAL(wp)          , INTENT(IN) :: q_in(3)
  CLASS(t_hmap_knot), INTENT(IN) :: sf
!-----------------------------------------------------------------------------------------------------------------------------------
! OUTPUT VARIABLES
  REAL(wp)                       :: Zl_out
!-----------------------------------------------------------------------------------------------------------------------------------
! LOCAL VARIABLES
!===================================================================================================================================
  !   Zl = delta * sin(l*zeta) + q2

 ASSOCIATE(q2=>q_in(2),zeta=>q_in(3))
   Zl_out = sf%delta*SIN(sf%l*zeta) + q2
 END ASSOCIATE
END FUNCTION hmap_knot_eval_Zl