hNb3Sn Function

public function hNb3Sn(t, nu)

Arguments

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

Return Value real(kind=dp)


Called by

proc~~hnb3sn~~CalledByGraph proc~hnb3sn hNb3Sn proc~critical_current_density_nb3sn critical_current_density_nb3sn proc~critical_current_density_nb3sn->proc~hnb3sn proc~current_sharing_temperature_nb3sn current_sharing_temperature_nb3sn proc~current_sharing_temperature_nb3sn->proc~critical_current_density_nb3sn

Source Code

  real(dp) function hNb3Sn(t,nu)
    real(dp), intent(in) :: t,nu
    real(dp) :: h

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

    hNb3Sn = h
    return
  end function hNb3Sn