hmap_knot_init_params Function

public function hmap_knot_init_params(knot_kl, knot_R0, knot_delta) result(sf)

initialize the type hmap_knot, from given parameters as arguments

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: knot_kl(1:2)
real(kind=wp), intent(in) :: knot_R0
real(kind=wp), intent(in) :: knot_delta

Return Value type(t_hmap_knot)

self


Calls

proc~~hmap_knot_init_params~~CallsGraph proc~hmap_knot_init_params hmap_knot_init_params proc~hmap_knot_test hmap_knot_test proc~hmap_knot_init_params->proc~hmap_knot_test swrite swrite proc~hmap_knot_init_params->swrite proc~hmap_knot_test->swrite proc~hmap_knot_eval t_hmap_knot%hmap_knot_eval proc~hmap_knot_test->proc~hmap_knot_eval proc~hmap_knot_eval_all t_hmap_knot%hmap_knot_eval_all proc~hmap_knot_test->proc~hmap_knot_eval_all proc~hmap_knot_eval_dxdq t_hmap_knot%hmap_knot_eval_dxdq proc~hmap_knot_test->proc~hmap_knot_eval_dxdq proc~hmap_knot_eval_gij t_hmap_knot%hmap_knot_eval_gij proc~hmap_knot_test->proc~hmap_knot_eval_gij proc~hmap_knot_eval_gij_dq t_hmap_knot%hmap_knot_eval_gij_dq proc~hmap_knot_test->proc~hmap_knot_eval_gij_dq proc~hmap_knot_eval_jh t_hmap_knot%hmap_knot_eval_Jh proc~hmap_knot_test->proc~hmap_knot_eval_jh proc~hmap_knot_eval_jh_dq t_hmap_knot%hmap_knot_eval_Jh_dq proc~hmap_knot_test->proc~hmap_knot_eval_jh_dq proc~hmap_knot_get_ddx_dqij t_hmap_knot%hmap_knot_get_ddx_dqij proc~hmap_knot_test->proc~hmap_knot_get_ddx_dqij proc~hmap_knot_get_dx_dqi t_hmap_knot%hmap_knot_get_dx_dqi proc~hmap_knot_test->proc~hmap_knot_get_dx_dqi proc~hmap_knot_init_aux hmap_knot_init_aux proc~hmap_knot_test->proc~hmap_knot_init_aux proc~hmap_knot_eval_rl t_hmap_knot%hmap_knot_eval_Rl proc~hmap_knot_eval->proc~hmap_knot_eval_rl proc~hmap_knot_eval_zl t_hmap_knot%hmap_knot_eval_Zl proc~hmap_knot_eval->proc~hmap_knot_eval_zl proc~hmap_knot_eval_all_e hmap_knot_eval_all_e proc~hmap_knot_eval_all->proc~hmap_knot_eval_all_e proc~hmap_knot_eval_dxdq->proc~hmap_knot_eval_rl proc~hmap_knot_eval_gij->proc~hmap_knot_eval_rl proc~hmap_knot_eval_gij_dq->proc~hmap_knot_eval_rl proc~hmap_knot_eval_jh->proc~hmap_knot_eval_rl proc~hmap_knot_get_ddx_dqij->proc~hmap_knot_eval_rl proc~hmap_knot_get_dx_dqi->proc~hmap_knot_eval_rl

Called by

proc~~hmap_knot_init_params~~CalledByGraph proc~hmap_knot_init_params hmap_knot_init_params 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

FUNCTION hmap_knot_init_params(knot_kl,knot_R0,knot_delta) RESULT(sf)
! MODULES
  IMPLICIT NONE
!-----------------------------------------------------------------------------------------------------------------------------------
! INPUT VARIABLES
  INTEGER,INTENT(IN)  :: knot_kl(1:2)         !parameters of the (k,l)-torus
  REAL(wp),INTENT(IN) :: knot_R0, knot_delta    !major radius and shift
!-----------------------------------------------------------------------------------------------------------------------------------
! OUTPUT VARIABLES
  TYPE(t_hmap_knot) :: sf !! self
!===================================================================================================================================
  SWRITE(UNIT_stdOut,'(4X,A)')'INIT HMAP :: KNOT ON A (k,l)-TORUS ...'

  sf%k=REAL(knot_kl(1), wp)
  sf%l=REAL(knot_kl(2), wp)
  sf%R0=knot_R0
  sf%delta=knot_delta

  IF (.NOT.((sf%R0 - ABS(sf%delta)) > 0.0_wp)) THEN
     CALL abort(__STAMP__, &
          "hmap_knot init: condition R0 - |delta| > 0 not fulfilled!")
  END IF

  sf%initialized=.TRUE.
  SWRITE(UNIT_stdOut,'(4X,A)')'...DONE.'
  IF(.NOT.test_called) CALL hmap_knot_test(sf)

END FUNCTION hmap_knot_init_params