hmap_cyl_init Function

public function hmap_cyl_init() result(sf)

Uses

  • proc~~hmap_cyl_init~~UsesGraph proc~hmap_cyl_init hmap_cyl_init module~modgvec_globals MODgvec_Globals proc~hmap_cyl_init->module~modgvec_globals module~modgvec_readintools MODgvec_ReadInTools proc~hmap_cyl_init->module~modgvec_readintools iso_fortran_env iso_fortran_env module~modgvec_globals->iso_fortran_env module~modgvec_readintools->module~modgvec_globals

initialize the type hmap_cyl, reading from parameterfile and then call init_params

Arguments

None

Return Value type(t_hmap_cyl)

self


Calls

proc~~hmap_cyl_init~~CallsGraph proc~hmap_cyl_init hmap_cyl_init getreal getreal proc~hmap_cyl_init->getreal proc~hmap_cyl_init_params hmap_cyl_init_params proc~hmap_cyl_init->proc~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~~CalledByGraph proc~hmap_cyl_init hmap_cyl_init interface~t_hmap_cyl t_hmap_cyl interface~t_hmap_cyl->proc~hmap_cyl_init

Source Code

FUNCTION hmap_cyl_init() RESULT(sf)
  ! MODULES
  USE MODgvec_Globals, ONLY:TWOPI
  USE MODgvec_ReadInTools, ONLY: GETREAL
  IMPLICIT NONE
!-----------------------------------------------------------------------------------------------------------------------------------
! OUTPUT VARIABLES
  TYPE(t_hmap_cyl) :: sf !! self
!-----------------------------------------------------------------------------------------------------------------------------------
! LOCAL VARIABLES
  REAL(wp) :: cyl_len
!===================================================================================================================================
  SWRITE(UNIT_stdOut,'(4X,A)')'INIT HMAP :: CYLINDER WITH X1:=x, X2:=z, zeta := -2*pi*(y/cyl_len) , GET PARAMETERS:'

  cyl_len=GETREAL("hmap_cyl_len",TWOPI)
  sf= hmap_cyl_init_params(cyl_len)

END FUNCTION hmap_cyl_init