Fix single-point matrix fails

slevis-lmwg · Oct 16, 2024 · 9c9bdca · 9c9bdca
1 parent f726adb
commit 9c9bdca
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/utils/SparseMatrixMultiplyMod.F90 b/src/utils/SparseMatrixMultiplyMod.F90
@@ -1243,7 +1243,7 @@ subroutine SPMP_ABC(this,num_unit,filter_u,A,B,C,list_ready,list_A,list_B,list_C
           call endrun( subname//" ERROR: missing required optional arguments" )
           return
        end if
-       SHR_ASSERT_FL((size(filter_actunit_C) > num_actunit_C), sourcefile, __LINE__)
+       SHR_ASSERT_FL((size(filter_actunit_C) >= num_actunit_C), sourcefile, __LINE__)
     end if
 
     if(.not. list_ready)then