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~2~~CallsGraph proc~radiative_cooling_add_source~2 radiative_cooling_add_source proc~cool_exact~2 cool_exact proc~radiative_cooling_add_source~2->proc~cool_exact~2 proc~floortemperature~2 floortemperature proc~radiative_cooling_add_source~2->proc~floortemperature~2 proc~calc_l_extended~2 calc_l_extended proc~cool_exact~2->proc~calc_l_extended~2 proc~findt~2 findT proc~cool_exact~2->proc~findt~2 proc~findy~2 findY proc~cool_exact~2->proc~findy~2 proc~get_pthermal~2 get_pthermal proc~cool_exact~2->proc~get_pthermal~2 proc~get_rfactor~2 get_Rfactor proc~cool_exact~2->proc~get_rfactor~2 proc~get_rho~2 get_rho proc~cool_exact~2->proc~get_rho~2 proc~floortemperature~2->proc~get_pthermal~2 proc~floortemperature~2->proc~get_rfactor~2 proc~floortemperature~2->proc~get_rho~2

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