nusselt_correlation_der_Pra Function

public function nusselt_correlation_der_Pra(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_pra~~CalledByGraph proc~nusselt_correlation_der_pra nusselt_t%nusselt_correlation_der_Pra proc~ffsrclink_resolution_from_and_to_ports FFsrcLink_resolution_from_and_to_ports proc~ffsrclink_resolution_from_and_to_ports->proc~nusselt_correlation_der_pra proc~fslink_resolution_from_and_to_ports FSlink_resolution_from_and_to_ports proc~fslink_resolution_from_and_to_ports->proc~nusselt_correlation_der_pra proc~sourceterms_notfriction_channel SourceTerms_NOTfriction_channel proc~sourceterms_notfriction_channel->proc~nusselt_correlation_der_pra 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_Pra(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_Pra,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_Pra)) then
          nusselt_correlation_der_Pra=me%nuss_der_Pra(me%nuss_cfg,Re,Pra,Tother_loc,T_loc)
      else
          eps=2.0e-4_dp
          if(Pra >= 0.5_dp*eps) then
            nusselt_correlation_der_Pra=(me%nuss(me%nuss_cfg,Re,Pra+0.5_dp*eps,Tother_loc,T_loc) &
                                        -me%nuss(me%nuss_cfg,Re,Pra-0.5_dp*eps,Tother_loc,T_loc))/eps
          else
            nusselt_correlation_der_Pra=(me%nuss(me%nuss_cfg,Re,Pra+eps,Tother_loc,T_loc) &
                                        -me%nuss(me%nuss_cfg,Re,Pra,Tother_loc,T_loc))/eps
          endif
      endif
    end function nusselt_correlation_der_Pra