Commit cd870b4e authored by Matthias Redies's avatar Matthias Redies

pre-merge

parent 04f870b2
...@@ -24,7 +24,7 @@ CONTAINS ...@@ -24,7 +24,7 @@ CONTAINS
IMPLICIT NONE IMPLICIT NONE
REAL, INTENT(in) :: den_RS(:,:), EnergyDen_RS(:,:), vTot_RS(:,:) REAL, INTENT(in) :: den_RS(:,:), EnergyDen_RS(:,:), vTot_RS(:,:)
REAL, INTENT(inout), allocatable :: kinEnergyDen_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 !implicit allocation
kinEnergyDen_RS = EnergyDen_RS - vTot_RS * den_RS 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