hmap_cyl_init_params Function

public function hmap_cyl_init_params(cyl_len) result(sf)

Uses

  • proc~~hmap_cyl_init_params~~UsesGraph proc~hmap_cyl_init_params hmap_cyl_init_params module~modgvec_globals MODgvec_Globals proc~hmap_cyl_init_params->module~modgvec_globals iso_fortran_env iso_fortran_env module~modgvec_globals->iso_fortran_env

initialize the type hmap_cyl, given the parameters as arguments

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: cyl_len

total length of cylinder

Return Value type(t_hmap_cyl)

self


Calls

proc~~hmap_cyl_init_params~~CallsGraph proc~hmap_cyl_init_params hmap_cyl_init_params proc~hmap_cyl_test hmap_cyl_test proc~hmap_cyl_init_params->proc~hmap_cyl_test proc~hmap_cyl_eval t_hmap_cyl%hmap_cyl_eval proc~hmap_cyl_test->proc~hmap_cyl_eval proc~hmap_cyl_eval_all t_hmap_cyl%hmap_cyl_eval_all proc~hmap_cyl_test->proc~hmap_cyl_eval_all proc~hmap_cyl_eval_dxdq t_hmap_cyl%hmap_cyl_eval_dxdq proc~hmap_cyl_test->proc~hmap_cyl_eval_dxdq proc~hmap_cyl_eval_gij t_hmap_cyl%hmap_cyl_eval_gij proc~hmap_cyl_test->proc~hmap_cyl_eval_gij proc~hmap_cyl_eval_gij_dq t_hmap_cyl%hmap_cyl_eval_gij_dq proc~hmap_cyl_test->proc~hmap_cyl_eval_gij_dq proc~hmap_cyl_eval_jh t_hmap_cyl%hmap_cyl_eval_Jh proc~hmap_cyl_test->proc~hmap_cyl_eval_jh proc~hmap_cyl_eval_jh_dq t_hmap_cyl%hmap_cyl_eval_Jh_dq proc~hmap_cyl_test->proc~hmap_cyl_eval_jh_dq proc~hmap_cyl_init_aux hmap_cyl_init_aux proc~hmap_cyl_test->proc~hmap_cyl_init_aux proc~hmap_cyl_eval_all_e hmap_cyl_eval_all_e proc~hmap_cyl_eval_all->proc~hmap_cyl_eval_all_e

Called by

proc~~hmap_cyl_init_params~~CalledByGraph proc~hmap_cyl_init_params hmap_cyl_init_params 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_init_params(cyl_len) RESULT(sf)
  ! MODULES
  USE MODgvec_Globals, ONLY:TWOPI
  IMPLICIT NONE
!-----------------------------------------------------------------------------------------------------------------------------------
! INPUT VARIABLES
  REAL(wp), INTENT(IN) :: cyl_len !! total length of cylinder
!-----------------------------------------------------------------------------------------------------------------------------------
! OUTPUT VARIABLES
  TYPE(t_hmap_cyl) :: sf !! self
!===================================================================================================================================
  SWRITE(UNIT_stdOut,'(4X,A)')'INIT HMAP :: CYLINDER WITH X1:=x, X2:=z, zeta := -2*pi*(y/cyl_len)  ...'

  sf%cyl_len=cyl_len/TWOPI

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

END FUNCTION hmap_cyl_init_params