nusselt_correlation_der_Re Function

public function nusselt_correlation_der_Re(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_re~~CalledByGraph proc~nusselt_correlation_der_re nusselt_t%nusselt_correlation_der_Re proc~ffsrclink_resolution_from_and_to_ports FFsrcLink_resolution_from_and_to_ports proc~ffsrclink_resolution_from_and_to_ports->proc~nusselt_correlation_der_re proc~fslink_resolution_from_and_to_ports FSlink_resolution_from_and_to_ports proc~fslink_resolution_from_and_to_ports->proc~nusselt_correlation_der_re proc~sourceterms_notfriction_channel SourceTerms_NOTfriction_channel proc~sourceterms_notfriction_channel->proc~nusselt_correlation_der_re 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 proc~source_term_definition_channel source_term_definition_channel proc~main_loop->proc~source_term_definition_channel proc~full_physics_definition_channel full_physics_definition_channel proc~main_loop->proc~full_physics_definition_channel proc~source_term_definition_channel->proc~sourceterms_notfriction_channel proc~full_physics_definition_channel->proc~source_term_definition_channel program~reims_p reims_p program~reims_p->proc~main_loop

Source Code

    function nusselt_correlation_der_Re(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_Re,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_Re)) then
          nusselt_correlation_der_Re=me%nuss_der_Re(me%nuss_cfg,Re,Pra,Tother_loc,T_loc)
      else
          eps=2.0e-1_dp
          if(Re >= 0.5_dp*eps) then
            nusselt_correlation_der_Re=(me%nuss(me%nuss_cfg,Re+0.5_dp*eps,Pra,Tother_loc,T_loc) &
                                       -me%nuss(me%nuss_cfg,Re-0.5_dp*eps,Pra,Tother_loc,T_loc))/eps
          else
            nusselt_correlation_der_Re=(me%nuss(me%nuss_cfg,Re+eps,Pra,Tother_loc,T_loc) &
                                       -me%nuss(me%nuss_cfg,Re,Pra,Tother_loc,T_loc))/eps
          endif
      endif
    end function nusselt_correlation_der_Re