| 1 | = New analytic cooling 6.20.2020 = |
| 2 | |
| 3 | |
| 4 | {{{ |
| 5 | gamma=alpha*(T/T0)^beta |
| 6 | alpha = 1e-21 |
| 7 | beta = [-2.5 -0.2 0 -.2 2.5] |
| 8 | T0=10^5 K |
| 9 | |
| 10 | Cooling only applies to Ambient trailer < 1/3 which is the initial ambient density |
| 11 | |
| 12 | Current version of code -- need better ways of handling Temp0 and trailer!!! |
| 13 | |
| 14 | FUNCTION AnalyticCoolingStrength2(q, Temp) |
| 15 | REAL(KIND=qPREC) :: AnalyticCoolingStrength2 |
| 16 | REAL(KIND=qPrec) :: q(:) |
| 17 | ! Local declarations |
| 18 | REAL(KIND=qPrec) :: Temp, Temp0, T0 |
| 19 | |
| 20 | Temp0 = 100000 !10^5 Kelvin |
| 21 | T0 = Temp/Temp0 |
| 22 | AnalyticCoolingStrength2=q(1)**2 * A_alpha*T0**A_beta*ScaleCool |
| 23 | |
| 24 | !! only for ambient traer > 1/3 which is the scaless value for initial ambient density |
| 25 | if( q(9) <= 1d0/3d0 ) AnalyticCoolingStrength2=0d0 |
| 26 | |
| 27 | |
| 28 | END FUNCTION AnalyticCoolingStrength2 |
| 29 | |
| 30 | }}} |
| 31 | |
| 32 | || rho_amb || 1e17 1/cm3 || |
| 33 | || T_amb || 4320 K || |
| 34 | || rho_jet || 6e17 1/cm3 || |
| 35 | || T_jet || 720 K || |
| 36 | || T_ps || 183920 K || |
| 37 | || V_jet || 44.982 km/s || |
| 38 | || Mach || 14.2404 || |
| 39 | || T_floor || 720 K || |
| 40 | |
| 41 | results: |
| 42 | |
| 43 | || beta=-2.5 || || |
| 44 | || beta=-0.2 || || |
| 45 | || beta=0.0 || || |
| 46 | || beta=0.2 || || |
| 47 | || beta=2.5 || || |
| 48 | |
| 49 | |
| 50 | ---- |
| 51 | |
| 52 | |