From b1b33d113fb2d0f5dbfa3d25a833e2ff73c3076c Mon Sep 17 00:00:00 2001
From: s2006749 <s2006749@ed.ac.uk>
Date: Mon, 26 Feb 2024 17:34:47 +0000
Subject: [PATCH] force printout
---
src/xcompact3d.f90 | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/src/xcompact3d.f90 b/src/xcompact3d.f90
index a884dd51..d725e0a8 100644
--- a/src/xcompact3d.f90
+++ b/src/xcompact3d.f90
@@ -100,9 +100,7 @@ program xcompact3d
if (nozdrift==1) then
linearForce(3)=zero
endif
- if (nrank==0) then
- write(*,*) "Time = ", t, ", Linear Force = ", linearForce
- endif
+
torque(:)=zero
! if (nrank==0) then
@@ -121,6 +119,7 @@ program xcompact3d
write(*,*) "Orientation = ", orientation_1
write(*,*) "Linear velocity = ", linearVelocity
write(*,*) "Angular velocity = ", angularVelocity
+ write(*,*) "Linear Force = ", linearForce
! call QuaternionNorm(angularVelocity,dummy)
--
GitLab