anchor.diff:                & trim(s% profile_manifest_filename)
             return
         end if
  -      write (iounit,'(i15,es15.6,tr4,a)') s% model, s% tsec, trim(filename)
  +      write (iounit,'(i15,es15.6)') s% model, s% tsec
         close(iounit)
         call free_iounit(iounit)
      end subroutine do_write_profile
  
positive.code:       
        close(iounit)
        
        ! now write the manifest
        open(unit=iounit,file=trim(s% profile_manifest_filename), &
            & position='append',iostat=ierr)
        if (ierr /= 0) then
  
negative.code:               write(*,*) 'failed to open profiles manifest ', &
                    & trim(s% profile_manifest_filename)
            else
                write(iounit,'(a15,a15,tr4,a)') 'model','time [s]', &
                    & 'base profile filename = '//trim(s% base_profile_filename)
                close(iounit)
            end if
            profile_first_call = .FALSE.
  