sort modified metadata when rounding, closes #41

ARPA-SIMC · Oct 24, 2017 · 2b1f495 · 2b1f495
1 parent ee41b09
commit 2b1f495
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/volgrid6d/volgrid6d_class.F90 b/volgrid6d/volgrid6d_class.F90
@@ -3462,6 +3462,9 @@ subroutine vg6d_reduce(vg6din,vg6dout,roundlevel,roundtimerange,merge)
 vg6dout%var=vg6din%var
 vg6dout%timerange=pack_distinct(roundtimerange,ntimerange,back=.true.)
 vg6dout%level=pack_distinct(roundlevel,nlevel,back=.true.)
+! sort modified dimensions
+CALL sort(vg6dout%timerange)
+CALL sort(vg6dout%level)
 
 do ilevel=1,size(vg6din%level)
   indl=index(vg6dout%level,roundlevel(ilevel))