get_iMode Function

private function get_iMode(varname_in, mn_in, nfp_in)

Uses

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

automatically build the string to be read from parameterfile, varname + m,n mode number, and then read it from parameterfile

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: varname_in
integer, intent(in) :: mn_in(2)
integer, intent(in) :: nfp_in

Return Value real(kind=wp)


Calls

proc~~get_imode~~CallsGraph proc~get_imode get_iMode getreal getreal proc~get_imode->getreal proc~remove_blanks remove_blanks proc~get_imode->proc~remove_blanks

Called by

proc~~get_imode~~CalledByGraph proc~get_imode get_iMode proc~initmhd3d t_functional_mhd3d%InitMHD3D proc~initmhd3d->proc~get_imode proc~init Init proc~init->proc~initmhd3d proc~rungvec rungvec proc~rungvec->proc~initmhd3d program~gvec_post GVEC_POST program~gvec_post->proc~initmhd3d proc~start_rungvec start_rungvec proc~start_rungvec->proc~rungvec program~gvec GVEC program~gvec->proc~rungvec

Source Code

FUNCTION get_iMode(varname_in,mn_in,nfp_in)
! MODULES
  USE MODgvec_ReadInTools    , ONLY: GETREAL,remove_blanks
!$ USE omp_lib
  IMPLICIT NONE
!-----------------------------------------------------------------------------------------------------------------------------------
! INPUT VARIABLES
    CHARACTER(LEN=*),INTENT(IN) :: varname_in
    INTEGER         ,INTENT(IN) :: mn_in(2),nfp_in
!-----------------------------------------------------------------------------------------------------------------------------------
! OUTPUT VARIABLES
    REAL(wp)                    :: get_iMode
!-----------------------------------------------------------------------------------------------------------------------------------
! LOCAL VARIABLES
    CHARACTER(LEN=100) :: varstr
!===================================================================================================================================
  SWRITE(varstr,'(A,"(",I4,";",I4,")")')TRIM(varname_in),mn_in(1),mn_in(2)/nfp_in
  varstr=remove_blanks(varstr)         !quiet on default=0.0
  get_iMode=GETREAL(TRIM(varstr),Proposal=0.0_wp,quiet_def_in=.TRUE.)
END FUNCTION get_iMode