From 3e07d50dcb24f1ed810fc801fed8a7eedc89b828 Mon Sep 17 00:00:00 2001
From: s2006749 <s2006749@ed.ac.uk>
Date: Tue, 22 Oct 2024 15:06:32 +0100
Subject: [PATCH] fixed debug
---
src/BC-Ellipsoid.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/BC-Ellipsoid.f90 b/src/BC-Ellipsoid.f90
index 076c3e76..91a7b3b6 100644
--- a/src/BC-Ellipsoid.f90
+++ b/src/BC-Ellipsoid.f90
@@ -81,7 +81,7 @@ subroutine geomcomplex_ellip(epsi,nxi,nxf,ny,nyi,nyf,nzi,nzf,dx,yp,dz,remp)
! ym=(real(j-1,mytype))*dy
ym=yp(j)
if (ym /= ym) then
- write(*,*) "ym = ", ym, " should be ", ((real(j-1,mytype))*dy), ", as j = ", jj
+ write(*,*) "ym = ", ym, " should be ", ((real(j-1,mytype))*dy), ", as j = ", j
endif
do i=nxi,nxf
--
GitLab