delay model package name error until all names checked

MODFLOW-USGS · May 19, 2024 · 7024c0e · 7024c0e
1 parent 8700a22
commit 7024c0e
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/src/Utilities/Idm/ModelPackageInputs.f90 b/src/Utilities/Idm/ModelPackageInputs.f90
@@ -413,15 +413,15 @@ subroutine modelpkgs_addpkgs(this)
       fname = fnames(n)
       call inlen_check(pnames(n), pname, LENPACKAGENAME, 'PACKAGENAME')
       !
-      ! -- terminate if errors were detected
-      if (count_errors() > 0) then
-        call store_error_filename(this%modelfname)
-      end if
-      !
       ! -- add this instance to package list
       call this%add(ftype, fname, pname)
     end do
     !
+    ! -- terminate if errors were detected
+    if (count_errors() > 0) then
+      call store_error_filename(this%modelfname)
+    end if
+    !
     ! --
     return
   end subroutine modelpkgs_addpkgs