nusselt_DBG_der_Tother Function

public function nusselt_DBG_der_Tother(c_pt, Re, Pra, Tother, T) result(nusselt_der_Tother) bind(C)

Arguments

Type IntentOptional Attributes Name
type(c_ptr), value :: c_pt
real(kind=dp), value :: Re
real(kind=dp), value :: Pra
real(kind=dp), value :: Tother
real(kind=dp), value :: T

Return Value real(kind=dp)


Source Code

    function nusselt_DBG_der_Tother(c_pt,Re,Pra,Tother,T) result(nusselt_der_Tother) bind(C)
        type(c_ptr), value :: c_pt
        real(dp), value :: Re,Pra,Tother,T
        real(dp) :: nusselt_der_Tother,NuT
        type(DBG_cfg_t), pointer :: DBG_ptr
        call c_f_pointer(c_pt,DBG_ptr)      

        NuT=DBG_ptr%a*(Re**DBG_ptr%b)*(Pra**DBG_ptr%c)*((Tother/T)**DBG_ptr%d)
        if(Re<1.0e-12_dp) NuT=0.0_dp
    
        if(DBG_ptr%NuL>NuT) then
          nusselt_der_Tother=0.0_dp
        else
          nusselt_der_Tother=DBG_ptr%a*(Re**DBG_ptr%b)*(Pra**DBG_ptr%c)*DBG_ptr%d*(1.0_dp/T)*&
                                 ((Tother/T)**(DBG_ptr%d-1.0_dp))
        endif        
    end function nusselt_DBG_der_Tother