Better bookkeeping of Tao parameter s%global%derivative_recalc.

bmad-sim · Jul 16, 2024 · a93e557 · a93e557
1 parent 98fcb63
commit a93e557
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/tao/code/tao_dmerit_mod.f90 b/tao/code/tao_dmerit_mod.f90
@@ -100,7 +100,7 @@ subroutine tao_dmodel_dvar_calc (force_calc, err_flag)
   s%var(j)%ix_dVar = nv
 enddo
 
-if (.not. reinit) then
+if (.not. reinit .or. .not. s%global%derivative_recalc) then
   return
 endif
 

diff --git a/tao/version/tao_version_mod.f90 b/tao/version/tao_version_mod.f90
@@ -6,5 +6,5 @@
 !-
 
 module tao_version_mod
-character(*), parameter :: tao_version_date = "2024/07/12 01:07:22"
+character(*), parameter :: tao_version_date = "2024/07/15 13:46:54"
 end module