From 46e6e8f749dbcb6fafe75b43a64e3420b06a747a Mon Sep 17 00:00:00 2001
From: s2006749 <s2006749@ed.ac.uk>
Date: Thu, 24 Oct 2024 13:14:02 +0100
Subject: [PATCH] removed write line
---
src/genepsi3d.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/genepsi3d.f90 b/src/genepsi3d.f90
index 2ecd5d40..72f48df5 100644
--- a/src/genepsi3d.f90
+++ b/src/genepsi3d.f90
@@ -314,7 +314,7 @@ contains
else
dyraf =yly/real(nyraf-1, mytype)
endif
- write(*,*) ny, size(yp), size(ypraf), nraf
+ ! write(*,*) ny, size(yp), size(ypraf), nraf
do j=1,ny-1
do jraf=1,nraf
ypraf(jraf+nraf*(j-1))=yp(j)+real(jraf-1, mytype)*(yp(j+1)-yp(j))/real(nraf, mytype)
--
GitLab