diff --git a/Source/func.f90 b/Source/func.f90
index 0732873796a..63abc6a5902 100644
--- a/Source/func.f90
+++ b/Source/func.f90
@@ -3752,7 +3752,7 @@ SUBROUTINE ALLOCATE_BOUNDARY_PROP2_ARRAYS
    B2_INDEX = M%NEXT_AVAILABLE_BOUNDARY_PROP2_SLOT
 ENDIF
 
-IF (B2_INDeX==0 .OR. B2_INDEX>M%N_BOUNDARY_PROP2_DIM) THEN  ! There are no open slots for boundary coordinates
+IF (B2_INDEX==0 .OR. B2_INDEX>M%N_BOUNDARY_PROP2_DIM) THEN  ! There are no open slots for boundary coordinates
    ALLOCATE(B2_DUMMY(1:M%N_BOUNDARY_PROP2_DIM+N_NEW_STORAGE_SLOTS))
    IF (M%N_BOUNDARY_PROP2_DIM>0) B2_DUMMY(1:M%N_BOUNDARY_PROP2_DIM) = M%BOUNDARY_PROP2(1:M%N_BOUNDARY_PROP2_DIM)
    CALL MOVE_ALLOC(B2_DUMMY,M%BOUNDARY_PROP2)