diff --git a/src/BC-Ellipsoid.f90 b/src/BC-Ellipsoid.f90
index 076c3e7699f0bff478ef3b4c5ab60ced2d0b6312..91a7b3b68bb57cd35a9132f11a7254f30a6d34d3 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