diff --git a/src/results.f90 b/src/results.f90 index b1329a477..ccb3ec13c 100644 --- a/src/results.f90 +++ b/src/results.f90 @@ -82,6 +82,7 @@ subroutine results_addIncrement(inc,time) real(pReal), intent(in) :: time character(len=pStringLen) :: incChar + write(incChar,*) inc call HDF5_closeGroup(results_addGroup(trim('inc'//trim(adjustl(incChar))))) call results_setLink(trim('inc'//trim(adjustl(incChar))),'current') call HDF5_addAttribute(resultsFile,'time/s',time,trim('inc'//trim(adjustl(incChar))))