Do not use sorting on dependency lists unless dlavg<16

4 years ago · e3649e1cb6
parent 46736f9d39
commit e3649e1cb6
1 changed files with 2 additions and 0 deletions
--- a/base/internals/psi_crea_index.f90
+++ b/base/internals/psi_crea_index.f90
@ -189,7 +189,9 @@ contains
    logical                       :: val

    val = .not.(((dlmax>(26*4)).or.((dlavg>=(26*2)).and.(np>=128))))
+    val = (dlavg<16)
    !val = .true.
+    !val = .false.
  end function choose_sorting

 end subroutine psi_i_crea_index