mol_ntmp Function

  1. module_all_integrators.f90
  2. all_integrators
  3. mol_ntmp

public function mol_ntmp() result(ntemp)

Uses

  • proc~~mol_ntmp~~UsesGraph proc~mol_ntmp mol_ntmp module~parameters parameters proc~mol_ntmp->module~parameters module~kinds kinds module~parameters->module~kinds

Function that interfaces with the ntemp functions provided by the individual integrators. This function can be called before choose_integrator is called.

Arguments

None

Return Value integer(kind=ip)

The number of temporary storage levels needed.


Called by

proc~~mol_ntmp~~CalledByGraph proc~mol_ntmp mol_ntmp proc~osc_schw_init osc_schw_init proc~osc_schw_init->proc~mol_ntmp proc~geod_schw_init geod_schw_init proc~geod_schw_init->proc~mol_ntmp proc~scal_schw_init scal_schw_init proc~scal_schw_init->proc~mol_ntmp interface~osc_schw_init osc_schw_init interface~osc_schw_init->proc~osc_schw_init interface~scal_schw_init scal_schw_init interface~scal_schw_init->proc~scal_schw_init interface~geod_schw_init geod_schw_init interface~geod_schw_init->proc~geod_schw_init

Contents

Source Code

mol_ntmp

Source Code

    function mol_ntmp ( ) result ( ntemp )
    !! Function that interfaces with the ntemp functions provided by the
    !! individual integrators. This function can be called before
    !! [[choose_integrator]] is called.

      use parameters, only : mol_integrator

      implicit none

      integer(ip) :: ntemp
      !! The number of temporary storage levels needed.

      select case ( mol_integrator )
      case ( 'rk4' )
        ntemp = rk4_int%ntemp ( )
      case ( 'rk5' )
        ntemp = rk5_int%ntemp ( )
      case ( 'abmv5' )
        ntemp = abmv5_int%ntemp ( )
      case default
        print*,'Invalid integrator requested'
        stop
      end select

    end function mol_ntmp