| | 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 | |