hNbTi Function

public function hNbTi(t, n)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: t
real(kind=dp), intent(in) :: n

Return Value real(kind=dp)


Called by

proc~~hnbti~~CalledByGraph proc~hnbti hNbTi proc~critical_current_density_nbti critical_current_density_nbti proc~critical_current_density_nbti->proc~hnbti proc~current_sharing_temperature_nbti current_sharing_temperature_nbti proc~current_sharing_temperature_nbti->proc~critical_current_density_nbti

Source Code

  real(dp) function hNbTi(t,n)
    real(dp), intent(in) :: t,n
    real(dp) :: h

    if(t>0.0_dp .and. t<1.0_dp) then
       h = 1.0_dp-t**n
    else if(t<=0.0_dp) then
       h = 1.0_dp
    else if(t>=1.0_dp) then
       h = 0.0_dp
    endif

    hNbTi = h
    return
  end function hNbTi