nusselt_correlation_der_Tother Function

public function nusselt_correlation_der_Tother(me, Re, Pra, Tother, T)

Type Bound

nusselt_t

Arguments

Type IntentOptional Attributes Name
class(nusselt_t), intent(inout) :: me
real(kind=dp), intent(in) :: Re
real(kind=dp), intent(in) :: Pra
real(kind=dp), intent(in), optional :: Tother
real(kind=dp), intent(in), optional :: T

Return Value real(kind=dp)


Called by

proc~~nusselt_correlation_der_tother~~CalledByGraph proc~nusselt_correlation_der_tother nusselt_t%nusselt_correlation_der_Tother proc~ffsrclink_resolution_from_and_to_ports FFsrcLink_resolution_from_and_to_ports proc~ffsrclink_resolution_from_and_to_ports->proc~nusselt_correlation_der_tother proc~fslink_resolution_from_and_to_ports FSlink_resolution_from_and_to_ports proc~fslink_resolution_from_and_to_ports->proc~nusselt_correlation_der_tother proc~main_loop main_loop proc~main_loop->proc~ffsrclink_resolution_from_and_to_ports proc~main_loop->proc~fslink_resolution_from_and_to_ports program~reims_p reims_p program~reims_p->proc~main_loop

Source Code

    function nusselt_correlation_der_Tother(me,Re,Pra,Tother,T)
      class(nusselt_t),  intent(inout) :: me
      real(dp), intent(in) :: Re,Pra
      real(dp), intent(in), optional :: Tother,T
      real(dp) :: nusselt_correlation_der_Tother,Tother_loc,T_loc
      real(dp) :: eps
      
      if(present(Tother) .and. present(T)) then
          Tother_loc=Tother; T_loc=T
      else
          Tother_loc=0.0_dp; T_loc=0.0_dp
      endif
  
      if(associated(me%nuss_der_Tother)) then
          nusselt_correlation_der_Tother=me%nuss_der_Tother(me%nuss_cfg,Re,Pra,Tother_loc,T_loc)
      else        
          eps=2.0e-1_dp
          nusselt_correlation_der_Tother=(me%nuss(me%nuss_cfg,Re,Pra,Tother_loc+0.5_dp*eps,T_loc) &
                                       -me%nuss(me%nuss_cfg,Re,Pra,Tother_loc-0.5_dp*eps,T_loc))/eps
      endif
    end function nusselt_correlation_der_Tother