Revert "Ignore max_allowed_nz if ≤ 0 (#642)" (#643)

This reverts commit f6b400f.
MESAHub · Apr 18, 2024 · d259949 · d259949
1 parent f6b400f
commit d259949
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 5 deletions.
diff --git a/docs/source/changelog.rst b/docs/source/changelog.rst
@@ -18,8 +18,6 @@ Backwards-incompatible changes
 New Features
 ------------
 
-``max_allowed_nz`` is now ignored if the value is less than or equal to zero.
-
 
 .. _Bug Fixes main:
 

diff --git a/star/defaults/controls.defaults b/star/defaults/controls.defaults
@@ -5597,7 +5597,6 @@
       ! ~~~~~~~~~~~~~~
 
       ! Maximum number of grid points allowed.
-      ! Array allowed to grow arbitrarily large if max_allowed_nz <= 0
 
       ! ::
 

diff --git a/star/private/mesh_plan.f90 b/star/private/mesh_plan.f90
@@ -411,7 +411,7 @@ subroutine split1(k, ierr)
                if (ierr /= 0) return
             end if
             nz_new = nz_new + 1
-            if (max_allowed_nz > 0 .and. nz_new > max_allowed_nz) then
+            if (nz_new > max_allowed_nz) then
                write(*,*) 'tried to increase number of mesh points beyond max allowed nz', max_allowed_nz
                ierr = -1
                return
@@ -868,7 +868,7 @@ subroutine pick_new_points(s, ierr)
                dq_sum = sum(dq_new(1:k_new))
 
                k_new = k_new + 1
-               if (max_allowed_nz > 0 .and. k_new > max_allowed_nz) then
+               if (k_new > max_allowed_nz) then
                   write(*,*) 'tried to increase number of mesh points beyond max allowed nz', max_allowed_nz
                   ierr = -1
                   return