From acbce0c1258023b256786b3f0f6da2214d966567 Mon Sep 17 00:00:00 2001 From: Grzegorz Kowal Date: Tue, 17 May 2011 20:29:41 -0300 Subject: [PATCH] Fix initial angular velocity in init_binaries(). --- src/problem.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/problem.F90 b/src/problem.F90 index ceb2987..3d55479 100644 --- a/src/problem.F90 +++ b/src/problem.F90 @@ -781,7 +781,7 @@ module problem ! angular speed and triginometric functions ! - om = dpi / tsat + om = dpi / tsat / (1.0d0 - esat) sn = 0.0d0 cs = 1.0d0