Fix spelling mistakes

MODFLOW-USGS · Feb 12, 2025 · a1aa7a7 · a1aa7a7
1 parent 28cef51
commit a1aa7a7
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/autotest/TestSVD.f90 b/autotest/TestSVD.f90
@@ -267,7 +267,7 @@ end subroutine test_svd_input_bidiagonal
   !> Test the SVD decomposition of a square matrix
   !!
   !! This test checks that the SVD decomposition of a square matrix is correct.
-  !! The input matrix is choosen such that the returned S-matrix
+  !! The input matrix is chosen such that the returned S-matrix
   !! has elements on the entire diagonal.
   subroutine test_svd_input_square_matrix(error)
     type(error_type), allocatable, intent(out) :: error
@@ -299,7 +299,7 @@ end subroutine test_svd_input_square_matrix
   !> Test the SVD decomposition of a square matrix
   !!
   !! This test checks that the SVD decomposition of a square matrix is correct.
-  !! The input matrix is choosen such that the returned S-matrix
+  !! The input matrix is chosen such that the returned S-matrix
   !! has elements on the entire diagonal.
   subroutine test_svd_input_M_GT_N_matrix(error)
     type(error_type), allocatable, intent(out) :: error

diff --git a/src/Model/TransportModel/tsp-adv.f90 b/src/Model/TransportModel/tsp-adv.f90
@@ -535,7 +535,7 @@ function create_grad_operator(this, n) result(grad_op)
     number_connections = this%dis%con%ia(n + 1) - this%dis%con%ia(n) - 1
 
     if (number_connections == 1) then
-      ! If a cell only has 1 neigbour compute the gradient using finite difference
+      ! If a cell only has 1 neighbour compute the gradient using finite difference
       ! This case can happen if a triangle element is located in a cornor of a square domain
       ! with two sides being domain boundaries