diff --git a/src/modules/solver/electromagnetic/moduleEM.f90 b/src/modules/solver/electromagnetic/moduleEM.f90
index 656c5bd..b8d9b55 100644
--- a/src/modules/solver/electromagnetic/moduleEM.f90
+++ b/src/modules/solver/electromagnetic/moduleEM.f90
@@ -60,8 +60,8 @@ MODULE moduleEM
 
       !Apply boundary conditions
       !$OMP SINGLE
-      do b = 1, nBoundaryEM
-        call boundaryEM(b)%obj%apply(vectorF)
+      do b = 1, nBoundariesEM
+        call boundariesEM(b)%obj%apply(vectorF)
 
       end do
       !$OMP END SINGLE