Commit f449ee1e authored by Francesco Fambri's avatar Francesco Fambri

this is only a dos2unix on GRMHD.f90 and InitialData.f90

parent c16bba55
This diff is collapsed.
......@@ -19,11 +19,11 @@ RECURSIVE SUBROUTINE InitParameters(STRLEN,PARSETUP)
!stop
!ICType = 'CCZ4MinkowskiSrc'
EQN%Pi = ACOS(-1.0)
#if defined(CCZ4GRMHD) || defined(GRMHD)
EQN%DivCleaning_a=1.0
#else
EQN%DivCleaning_a=0.0
#endif
#if defined(CCZ4GRMHD) || defined(GRMHD)
EQN%DivCleaning_a=1.0
#else
EQN%DivCleaning_a=0.0
#endif
!
select case(ICType)
case('CCZ4MinkowskiSrc')
......
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