Commit cd870b4e authored by Matthias Redies's avatar Matthias Redies

pre-merge

parent 04f870b2
......@@ -24,7 +24,7 @@ CONTAINS
IMPLICIT NONE
REAL, INTENT(in) :: den_RS(:,:), EnergyDen_RS(:,:), vTot_RS(:,:)
REAL, INTENT(inout), allocatable :: kinEnergyDen_RS(:,:)
REAL, PARAMETER :: eps = 1e-15, factor = 0.1
REAL, PARAMETER :: eps = 1e-15, factor = 1.0
!implicit allocation
kinEnergyDen_RS = EnergyDen_RS - vTot_RS * den_RS
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment