From 97fd522e615c113efe8b683c1d45e9dd3ffdd85b Mon Sep 17 00:00:00 2001
From: s2006749 <s2006749@ed.ac.uk>
Date: Thu, 17 Oct 2024 15:37:56 +0100
Subject: [PATCH] removed itime2 torque writing
---
src/forces.f90 | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/src/forces.f90 b/src/forces.f90
index 0ee212ec..e3b41fde 100644
--- a/src/forces.f90
+++ b/src/forces.f90
@@ -1204,13 +1204,13 @@ contains
enddo
return
elseif (itime.eq.2) then
- if ((nrank .eq. 0).and.(record_var.eq.1)) then
- do i = 1,nvol
- ! write(*,*) "TRYING TO WRITE AT ITIME=2, t = ", t
- write(45+(iv-1),*) t, zero, zero, zero, zero, zero, zero, zero, zero, zero, zero, zero
- call flush(45+(iv-1))
- enddo
- endif
+ ! if ((nrank .eq. 0).and.(record_var.eq.1)) then
+ ! do i = 1,nvol
+ ! ! write(*,*) "TRYING TO WRITE AT ITIME=2, t = ", t
+ ! write(45+(iv-1),*) t, zero, zero, zero, zero, zero, zero, zero, zero, zero, zero, zero
+ ! call flush(45+(iv-1))
+ ! enddo
+ ! endif
do k = 1, xsize(3)
do j = 1, xsize(2)
do i = 1, xsize(1)
--
GitLab