From 50fbdd9ea631f0e98b6eac6a3ead168eb020b769 Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Thu, 15 Dec 2011 13:52:52 -0600 Subject: [PATCH] Fixed typo in sample_target_velocity. --- src/physics.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/physics.F90 b/src/physics.F90 index 040da1cd00..4547b9c6c7 100644 --- a/src/physics.F90 +++ b/src/physics.F90 @@ -1023,7 +1023,7 @@ contains ! determine velocity vector of target nucleus v_target(1) = u*vt v_target(2) = v*vt - v_target(3) = W*vt + v_target(3) = w*vt end subroutine sample_target_velocity