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