Clean up TtoZ
This commit is contained in:
parent
a7a0c8494e
commit
870ca301d8
1 changed files with 1 additions and 4 deletions
|
|
@ -14,10 +14,7 @@
|
|||
real(dp), intent(in):: T
|
||||
real(dp):: Z
|
||||
|
||||
Z = 22.5 * (Temp_ref * T / eV_to_K /100.0)**0.6
|
||||
! Z = max(Z, 1.0_dp)
|
||||
! Z = min(Z, 22.0_dp)
|
||||
!Z = 12.0_dp
|
||||
Z = 22.5 * (Temp_ref * T / eV_to_K / 100.0)**0.6
|
||||
|
||||
end function T_to_Z
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue