radiative_cooling_add_source Subroutine

public subroutine radiative_cooling_add_source(qdt, wCT, wCTprim, wnew, x)

Arguments

Type IntentOptional Attributes Name
double precision, intent(in) :: qdt
double precision, intent(in) :: wCT(nw_phys)
double precision, intent(in) :: wCTprim(nw_phys)
double precision, intent(inout) :: wnew(nw_phys)
double precision, intent(in) :: x(1:ndim)

Calls

proc~~radiative_cooling_add_source~3~~CallsGraph proc~radiative_cooling_add_source~3 radiative_cooling_add_source proc~cool_exact~3 cool_exact proc~radiative_cooling_add_source~3->proc~cool_exact~3 proc~floortemperature~3 floortemperature proc~radiative_cooling_add_source~3->proc~floortemperature~3 proc~calc_l_extended~3 calc_l_extended proc~cool_exact~3->proc~calc_l_extended~3 proc~findt~3 findT proc~cool_exact~3->proc~findt~3 proc~findy~3 findY proc~cool_exact~3->proc~findy~3 proc~get_pthermal~3 get_pthermal proc~cool_exact~3->proc~get_pthermal~3 proc~get_rfactor~3 get_Rfactor proc~cool_exact~3->proc~get_rfactor~3 proc~get_rho~3 get_rho proc~cool_exact~3->proc~get_rho~3 proc~floortemperature~3->proc~get_pthermal~3 proc~floortemperature~3->proc~get_rfactor~3 proc~floortemperature~3->proc~get_rho~3

Source Code

    subroutine radiative_cooling_add_source(qdt,wCT,wCTprim,wnew,x)
      

    ! w[iw]=w[iw]+qdt*S[wCT,x] where S is the source based on wCT within ixO
      double precision, intent(in) :: qdt, wCT(nw_phys), wCTprim(nw_phys)
      double precision, intent(inout) :: wnew(nw_phys)
      double precision, intent(in) :: x(1:ndim)

      call cool_exact(qdt,wCT,wCTprim,wnew,x,rc_fl)
      if( rc_fl%Tfix ) call floortemperature(qdt,wCT,wnew,x,rc_fl)

    end subroutine radiative_cooling_add_source