Fix build warnings, reduce duplicate code, use 64 bit indices

danieljprice · Oct 18, 2024 · d39f1d6 · d39f1d6
1 parent 304f743
commit d39f1d6
Show file tree

Hide file tree

Showing 2 changed files with 746 additions and 737 deletions.
diff --git a/src/main/evolve.F90 b/src/main/evolve.F90
@@ -139,11 +139,11 @@ subroutine evol(infile,logfile,evfile,dumpfile,flag)
  integer         :: j,nskip,nskipped,nevwrite_threshold,nskipped_sink,nsinkwrite_threshold
  character(len=120) :: dumpfile_orig
 
+ tzero     = time
  if (.not. initialized) then
  tprint    = 0.
  nsteps    = 0
  nsteplast = 0
- tzero     = time
  dtlast    = 0.
  dtinject  = huge(dtinject)
  dtrad     = huge(dtrad)